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base of items ordered. Emphasis is placed upon ease of use 
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THESIS DISCLAIMER 

The reader is cautioned that computer programs developed 
in this research may not have been exercised for all cases 
of interest. While every effort has been made, within the 
time available, to ensure that the programs are free of 
computational and logic errors, they cannot be considered 
validated. Any application of these programs without addi- 
tional verification is at the risk of the user. 
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I. INTRODUCTION 



A. PURPOSE 

Each day military commands collectively promulgate 
thousands of instructions, notices, and orders which subor- 
dinates are expected to read, understand, and execute. 
Although the authors of these written guidelines strive for 
clarity, the onus to understand them is placed upon the 
addressee. With the proliferation of personal computers the 
potential now exists to achieve new dimensions of clarity 
and ease of understanding through the issuance of interac- 
tive software vice voluminous written instructions. 

Due to its capability to present a series of screens of 
information, software may be viewed as a communication 
medium. It is somewhat unique in that the user may interact 
with the software, for example, requesting further 'help' or 
clarification of particular procedures. The software also 
may be used to prepare reports by querying the user for 
inputs according to a specific logic. No pretention is made 
that software is the appropriate medium for the promulgation 
of all instructions. In fact, it is quite probable that it 
is cost efficient in only a small percentage of situations. 

The purpose of this paper is to examine and propose a 
software-oriented alternative to the current manual, 
instruction-driven supply requisition process at the Naval 
Postgraduate School (NPS), Monterey, CA. Although the model 
presented addresses specific details of the NPS requisition 
transactions, it is felt that the general concepts could be 
extrapolated easily to other locations which also have 
significant open purchase activity and a multitude of 
funding sources. 
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B. APPROACH 



The current NPS requisition process was studied in 
detail by reviewing the NPS Supply Department Customer 
Service Manual [Ref. 1] and the applicable NPS Comptroller 
instruction [Ref. 2]. Several modifications to these 
written guidelines were discussed at a two hour requisition 
training seminar presented by the Supply Department for NPS 
personnel [Ref. 3]. Finally, a working knowledge of the 
current system was attained through the interviewing of 
several persons involved in various stages of the requisi- 
tion process at NPS. In addition to gaining a better 
understanding of the precise operation of the current 
system, suggestions for improvement were solicited. 

Thesis research visits were made to the Fleet Hospital 
Support Office, Alameda, CA, Naval Supply Center, Oakland, 
CA, and the Supply Automation Office at NAS Miramar, CA, to 
review general supply automation efforts throughout the 
Navy. 

C. ASSUMPTIONS' -AND SCOPE 

The primary thrust of this paper is to present an 
example of interactive software as an alternative to a 
written instruction. Although cost effectiveness will be 
briefly examined as a relevant issue, a complete cost/ 
benefit analysis is considered to be outside the scope of 
this thesis. 

A requisition may be viewed as a compilation of data 
elements such as nomenclature, stock number, quantity, ship- 
ping codes, etc. , which pertain to the item being ordered. 
During the course of research, some data elements required 
on requisition documents appeared to be a duplication of 
information, and other codes were discovered to be meaning- 
less in the NPS environment. Since it is not the purpose of 
this thesis to present an analysis of information and codes 
required on each requisition document, these problems will 
be left to others. 
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For the purposes of this paper, every element of infor- 
mation and code which is required by applicable instructions 
and manuals [Refs. 1,2] are assumed to be necessary and 
appropriate. It is recognized that some of these requisi- 
tion forms are in DOD-wide usage, and therefore, they may 
utilize codes which perhaps have meanings in other environ- 
ments. An argument may easily be made that a locally 
produced requisition form would be more responsive to the 
needs of NPS supply customers, however, this is also felt to 
be an issue which is outside the realm of this thesis. 

It is important to note that this paper focuses upon the 
accurate generation of requisition documents via a session 
with interactive software, as opposed to reliance solely 
upon written instructions. There is no intent to present an 
analysis of the entire NPS requisition / purchase process. 
For further information the reader is referred to the bibli- 
ography, which cites several previous theses which have 
fully discussed these other issues concerning the design and 
analysis of the NPS supply system. 
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II. BACKGROUND 



A. NPS REQUISITION SYSTEM CHARACTERISTICS 

During FY 85, the NPS Supply Department processed over 
17,000 requisitions with a total value in excess of 
$13,341,000. Due to the academic nature of its mission, the 
Naval Postgraduate School acquires a large percentage of its 
material via open purchase as opposed to reliance upon stan- 
dard government stock sources. Less than 15% of FY 85 NPS 
requisitions were filled from standard stock, resulting in 
almost 15,000 open purchase actions valued at $12,900,000 
[Ref. 4]. 

NPS is somewhat unique in the number of different 
funding sources available for locally generated requisi- 
tions. Aside from the normal departmental Operating Target 
(OPTAR) funds provided in the NPS Operations and 
Maintenance, Navy (O&MN) budget, large amounts of 
Reimbursable Funds (RF) (also called research funds) are 
provided by others commands which are sponsoring research 
work at NPS. This wide variety of funding sources will be 
found to introduce a degree of complexity in accurate gener- 
ation of requisition documents. 

The current NPS Supply requisition process appears to be 
a manual anachronism in the midst of a relatively computer- 
ized environment. At present, no phase of the requisition 
cycle has been touched by automation. This chapter will 
describe the present procedures for generation of NPS requi- 
sition documents. 

B. REQUISITION OVERVIEW 

Each NPS department has designated one or more personnel 
to serve as the focal point in preparing and tracking requi- 
sition documents. For academic departments this person is 
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usually a clerk/typist serving in a GS-3 to GS-5 billet. 
Persons desiring to order materials usually notify the 
department clerk, who prepares the requisition documents and 
keeps a record of the transaction. The form of the initial 
request to the department clerk varies from one department 
to the next, running the gamut from a phone call, to a xerox 
copy of an advertisement with items circled, to a type- 
written memorandum. 

The department requisition clerk prepares the documents 
in accordance with the applicable local instructions 
[Refs. 1,2]. After the documents are prepared, the clerk 
will obtain the appropriate signature prior to routing out 
of the department for further action. See Figure 2. 1. 




Figure 2. 1 Typical Requisition Flow 



If the requisition is to be funded from department OPTAR 
funding, the department chairman or his designated 
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representative will sign the documents before they are 
forwarded to supply. If the requisition is to be funded from 
Reimbursable Funds (RF), the documents will be signed by 
the professor controlling the specific RF account. RF-funded 
requisitions are sent to supply via the Research 
Administration Office which screens the request to ensure 
that the funds are being spent in accordance with any 
limitations placed by the sponsoring command. 

C. TYPES OF REQUISITIONS 

This section will describe the different types of requi- 
sitions and the associated documents. 

1. Ready Supply Requests 

To expeditiously satisfy customer requests, the most 
frequently requested consumable materials are stocked 
locally at the NPS Ready Supply Store (RSS). Materials 
stocked in the RSS for the convenience of the NPS customer 
are listed in the NPS RSS Catalog [Ref. 5]. Customers may 
obtain items from the RSS by forwarding a Material 
Requirements Document (Figure 2.2) to the RSS. RSS personnel 
will phone the exact total cost of the desired items back to 
the department requisitions clerk, who subsequently prepares 
a 'Money Value Only' DD-1348 (Figure 2.3) to be sent to the 
RSS. 

The NPS Office Supply Issueroom (OSI) is a subunit 
of the RSS, where frequently used office materials, such as 
pens and folders, are available in limited quantities upon 
presentation of a locally produced office supply request 
form. Figure 2. 4. 

The OSI maintains a running tally of the value of 
items issued and 'bills' each department monthly. A depart- 
ment 'pays its bills' through issuance of a 'Money Value 
Only' DD-1348, as seen in Figure 2.3. The DD-1348 is an 
accounting document, and as such, it must be signed in the 
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Figure 2. 3 DD-1348 for Money Value Only 
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Figure 2. 4 Office Supply Request Form 

upper right corner by an individual designated by the 
department as authorized to obligate funds [Ref. 1: p. 4-6]. 
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2. Standard Stock Requests 

Many commonly used items have been purchased in 
volume, assigned National Stock Numbers ( NSN ) , and stocked 
at various stockpoints throughout the nation by the 
Department of Defense (DOD) or the General Services 
Administration (GSA). All standard stock items are requisi— 
tioned using a DD-1348, Figure 2.5, coded in accordance with 
the Military Standard Requisitioning and Issue Procedure 
(MILSTRIP) [Ref. 6: pp. 1-62]. A separate DD-1348 must be 
used for each line item of standard stock. 
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Figure 2.5 DD-1348 Standard Stock Requisition 



3. Open Purchase 

Items which are not available from standard stock 
may be purchased directly from commercial sources. Although 
departments are issued standard stock catalogs annually, it 
is not uncommon for items, which are available from standard 
stock, to be erroneously requested on an open purchase 
requisition. All open purchase requisitions are screened by 
the NPS Supply Department for availability in standard 
stock. If the same or 'like' item is found, the requisition 
is returned to the originator with a memorandum attached 
citing the apparent standard stock substitution nomenclature 
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and NSN. If the standard stock item is acceptable to the 
customer, the department requisition clerk will generate a 
new DD-1348 for the appropriate standard stock item. If it 
is felt that the standard stock alternative is inadequate, a 
justification memorandum to the NPS Supply Department must 
accompany the return of the original requisition. 




Figure 2. 6 DD-1348 Open Purchase Requisition ( single item) 

An open purchase requisition for a single item may 
be made using a DD-1348 as seen in Figure 2. 6. A Standard 
Form 36 (SF-36) is required to be completed if more than one 
item is requested, or if the item nomenclature and 
description of specifications will not fit in blocks 8-22 on 
DD-1348 [Ref. 1: p. 4-5]. An SF-36 (Figure 2.7) is viewed 
as a continuation of the DD-1348 (Figure 2.8) in these 
instances. 

It is important to note that each DD-1348 or 
DD-1348/SF-36 combination may specify only one vendor. Items 
desired from different vendors require separate requisition 
documents. 

For accounting purposes, items which are classified 
under different elements of expense must not be combined on 
a single requisition [Ref. 2: p. 3]. For example, an order 
for a personal computer and related software, even from a 
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SF-36 Open Purchase Continuation 
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Figure 2. 8 DD-1348 Open Purchase Requiring an SF-36 

single vendor, requires at least two requisitions because 
the expense element codes for software and hardware are 
different [Ref. 2: encl(3) pp. 1-2]. 

a. Alternative Sources Memorandum 

Recently publicized purchases of '$600 ashtrays' 
and '$900 hammers' have focused intense congressional 
scrutiny upon DOD procurement. In an attempt to ensure 
efficient use of tax dollars through competitive purchases, 
all open purchase requisitions with a total value exceeding 
$1,000 are now required to list a minimum of three alterna- 
tive vendors for the requested materials. The alternative 
suppliers may be shown in the space remaining at the bottom 
of an SF-36, or a separate memorandum may be attached to the 
requisition [Ref. 3]. 

b. Sole Source Justification Memorandum 

An exception to the Alternative Sources 
Memorandum occurs when the customer is able to document the 
requirement for a sole source procurement. Contracting offi- 
cers are 'bound by law to seek competition' unless it can be 
demonstrated that valid reasons exist which preclude compe- 
tition; therefore, requests for sole source procurement 
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actions are very carefully reviewed [Ref. 1: p. 4-27]. 
Central to the Sole Source Justification is a description of 
the critical features which limit its availability to a 
single source, as well as a certification that this is the 
only product or service which will adequately meet the 
intended use or application. 
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III. SRdb SOFTWARE DESCRIPTION 



A. CONCEPT 

The Supply Requisition Database ( SRdb) software was 
written to permit the generation of primary requisition 
documents through an interactive computer session. The 
target user, a department requisition clerk, initiates the 
order process by answering a logical series of plain 
language queries. Since the algorithms for placing the 
appropriate codes in the proper boxes on the documents are 
written into the software, the user is freed from memorizing 
or copying cryp'tic codes. After all required questions have 
been answered, the user is prompted to load the proper blank 
document into the printer. Precise document formatting is 
provided in the SRdb software, eliminating all user format 
errors. 

The SRdb program is designed to extract key elements 
from each document and maintain a requisition database which 
can be used at the department level in lieu of the current 
ad hoc recordkeeping. SRdb files are written to the selected 
disk drive as per the SRdb configuration file. The configu- 
ration file is used to maximize the user friendly nature of 
the software and free the user from repetitive typing of 
elements which remain constant on each requisition, such as 
department name, phone, building, etc. The beta (initial 
test) copy of the SRdb package was preconfigured for use in 
the NPS Administrative Sciences department. 

B. SYSTEM REQUIREMENTS 

SRdb is designed to run on an IBM or IBM compatible CPU 
with a minimum of 256K of memory and 2 disk drives. 
Although it will operate small databases on floppy disk 
drives, it is highly recommended that a hard disk drive be 
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utilized if any of the following requirements are exceeded 
on an FY basis: 

• 50 accounts, 

• 150 suppliers, 

• 1500 requisitions, or 

• 2000 line items. 

Either a color or a monochrome monitor is acceptable. A 
friction feed printer is essential for printing of forms, 
however, a tractor feed printer is adequate for printing out 
reports and memorandums. 

Since SRdb is essentially a dBASE III application 
program, a copy of dBASE III is required for program execu- 
tion. The beta copy of SRdb is configured such that dBASE 
III and the SRdb program modules are resident on a single 
disk to be maintained in the 'A' disk drive. The database 
and index files are located on the ' B ' drive. These drive 
assignments are optional and may easily be changed by modi- 
fying the configuration file. For further details 

concerning system sizing requirements, the reader is 
referred to Appendix C, 'Database Structure'. 

C. FEATURES 

The general features of the SRdb software are described 
below. The reader is referred to the SRdb User's Manual in 
Appendix B for detailed operational descriptions. 

1. Document Generation 

The two primary requisition documents, DD-1348 and 
SF-36, are readily generated by SRdb. SRdb handles complex 
code assignment in document boilerplate according to the 
type of requisition. Julian dates are automatically calcu- 
lated, including leap year corrections. It also calculates 
the total value of the requisition required on the SF-36 and 
in block 'U' of the DD-1348 [Ref. 1: pp. 4-9 - 4-15]. 
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When ready to print, the program pauses for the user 
to indicate that the proper form has been loaded into the 
printer. After the document has been printed, SRdb permits 
the user to immediately reprint it in case the printer was 
misloaded, or there were any mechanical malfunctions. 
Although both forms are available on continuous-feed stock, 
it is believed that it generally would be impractical to use 
such forms due to the variety of requisition types. For 
example, each SF-36 would necessarily be followed by a 
DD-1348 as described in Chapter Two, therefore, a friction 
feed printer is viewed as most practical.' A single 
SRdb-generated DD-1348 or SF-36 document would be indistin- 
guishable from the same document prepared by a clerk- typist 
on an electric typewriter, except perhaps by the lack of 
overstrike errors. 

2. Accounts Database 

SRdb allows the clerk to select the appropriate 
account from an on-line listing, eliminating the repetitive 
entry of account information. Due to the proliferation of RF 
projects throughout NPS, it is not uncommon for a single 
department to have access to 30 or more different funding 
accounts. SRdb records the following information for each 
account: 

• Account name, 

• Account number assigned by NPS Comptroller, 

• Mail code of responsible individual, 

• Type of funds ( RF or not), 

• Document serial number range assigned, 

• Last document serial number used. 

Professors who are responsible for multiple RF 
accounts have a separate listing for each account. A menu- 
driven option permits the user to easily add additional 
accounts upon receipt of accounting data from the NPS 
Comptroller. 
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Tracking document serial numbers for each account 
permits the automatic generation of the 14-character 
document numbers (columns 30-43 of DD-1348), which are a 
concatenation of the Unit Identification Code (UIC), Julian 
date, and the appropriate serial number. In SRdb, the entire 
process is now transparent to the user instead of a being a 
drill in precision typing. 

3. Supplier Database 

A database file of suppliers is maintained on-line 
to assist the user in completion of open purchase requisi- 
tions. The vendor's name, address, and phone number are 
filed for easy future reference. SRdb allows the clerk to 
select the appropriate supplier from an on-line listing, 
eliminating the repetitive entry of vendor information. If 
an order is made from a supplier not currently in the file, 
he is automatically added to the database for future refer- 
ence.- The supplier database also serves as an excellent 
source of alternative vendors, required in orders exceeding 
$1,000 value. 

4. Requisition Database 

A file is maintained containing the following items . 
of information about each requisition: 

• Requisition number, 

• Priority code of requisition, 

• Supplier, 

• Date of requisition. 

The requisition database is indexed by requisition 
number and account number for ease of report generation. 
Each requisition is represented by a separate entry in this 
file. 

5. I tern Database 

In consonance with a database of Third Normal Form, 
as described by Kent [Ref. 7], a separate database contains 
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the items requisitioned. The database contains the following 
entries for each item: 

• Description of item (up to 44 characters), 

• Unit of issue, 

• Quantity ordered, 

• Unit price, 

• Requisition number, 

• Purchase order number, 

• Receipt status. 

The item database is indexed by both the requisition 
number and the purchase order number to facilitate item 
tracking and report production. This database also permits 
the tracking • of which items have not been received. The 
original unit price may later be altered to accommodate 
price changes, which are a common occurrence. 

6. Report Generation 

A primary strength of SRdb is the ability to easily 
generate reports from the various databases. The user is 
given the option of displaying each report on the screen or 
dumping it to a printer. Although there is a virtually 
unlimited number reports and formats which could be 
produced, the beta version of SRdb provides the following 
two basic types of reports. 

a. Requisition Summary 

The user may select from these three requisition 
display options: 

1) A single specific requisition. 

2) All requisitions charged to a specific account. 

3) All requisitions charged to a specific account between 
two dates. 

As may be seen in Figure 3.1, only essential 
data elements are presented in requisition summaries. There 
is no attempt to display an exact copy of the original 
requisition. 
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Account Name : LAPATRA Requisition #: 53337003 

Account jjt : RCAZ2 Priority; C 

To: ASHTON- TATE 

10150 W. Jefferson 
Culver City, CA 90230 

# Item Unit Cost Quant Rcvd P.0. # 



1 dBASE III $ 399.00 2 F 

2 Quick Code Mark IV $ 345.00 1 F 87654321 



Total items: 3 Total value: $ 1,143.00 



Figure 3. 1 Single Requisition Summary 



b. Summary of Items Not Received 

SRdb currently permits two types of displays of 
items ordered but not yet received. The user may elect to 
display all items outstanding for the entire department 
(Figure 3.2) or to restrict the list to items outstanding 
from a specific account (Figure 3.3). Both types of listings 
will show at the bottom the total number and value of items 
not yet received. 

AS Dept 



ITEMS NOT RECEIVED AS OF 12/11/85 



# 


Item 




Req # 


p.o. # 


Quant 


1 


LOTUS 123 34LP45654323 




53156504 




1 


2 


Pedometer (model 158) 




53227676 




2 


3 


Nikon 35ram SLR Camera fl.4 




53227676 


53403454 


1 


4 


Calculator 34543LP09867 




53306005 




1 


5 


DisplayComm Software 




53336505 


54129990 


1 


6 


IBM VM- 370 Oper. Handbook 




53336505 




1 


7 


dBASE III 




53337003 




2 


8 


Quick Code Mark IV 




53337003 




1 


9 


Amdek Color Monitor 13’ 




53337678 




2 


10 


9 Meg Buffer Board 




53365707 




2 


11 


Calender 86 78756GG32234 




53367005 




3 


12 


Desk Pad 66543FU45435 




53367702 




1 


13 


Symphony Clone Vers #3 




53385708 




3 


14 


Sidekick Software 




53387680 




100 


15 


IBM AT Personal Comp. 




53387703 




1 


16 


Y-19 Communications Accessory 


Pack 


53415709 




1 




Total items: 182 


Total 


value: $ 


64,656.62 





Figure 3. 2 Department Listing of Items Not Received 



The potential exists to restrict the listings to 
requisitions generated within a specific range of dates. 
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For Account #: RCAZ2 
ITEMS NOT RECEIVED AS OF 01/23/86 



# 


Item 


Req 


P.0. # 


Quant 


1 


dBASE III 


53337003 




2 


2 


Quick Code Mark IV 


53337003 




1 


3 


Calender 36 78756GG32234 


53367005 




3 




Total items: 6 


Total value: ? 


1,151.61 





Figure 3. 3 Account Listing of Items Not Received 

7. Alternative Sources Memorandum 

As described in Chapter Two, a memorandum listing 
three alternative suppliers must accompany all open purchase 
requisitions exceeding $1,000 in value. SRdb permits the 
user to page through the on-line list of available 
suppliers, selecting the desired ones. The user is then 
prompted for two departmental points of contact for the 
requisition. The resulting memorandum (Figure 3.4) is 
produced without further user input. 
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From: AS Department 01/24/86 

To: NPS Supply 

Subj : Additional sources for requisition # 60243397 

1. Due to the high value of subject requisition, the following 
multiple supply sources are submitted: 



Monterey Bay 
1760 Fremont 


Computerworks 

Blvd 


Phone 


Seaside 


CA 


93955 



IBM Government Products 


Phone : 


321 Cypress Lane 






Oakmont 


NM 


43563 


Trafalgar Systems 




Phone : 


606 Alamoana Blvd 






Honolulu , 


HI 


96867 



408 889-3177 



518 864-2169 



808 549-2843 



2. Departmental points of contact for this request are: 

Greta Jones 2472 

Bette Midler 3242 



Figure 3.4 Alternative Sources Memorandum 
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IV. INITIAL SRdb PROTOTYPE FEEDBACK 



This chapter will present a brief overview of the 
lessons learned from the limited trial operations of the 
beta copy of SRdb in the NPS Administrative Sciences 
Department. No pretention is made that these findings 
constitute a formal cost/benefit analysis of the concept, 
however, it is believed that they may serve a springboard 
for further research in the area. Feedback was obtained by 
direct observation of the requisition clerk users and post- 
use interviews. 

A. GENERAL 

The first trial of SRdb in the AS Department was 
conducted using a newly hired clerk who was unfamiliar with 
both the requisition process and personal computers. Her 
experience highlighted several procedural weaknesses in the 
software which were immediately corrected prior to further 
use. 

Users with all levels of experience in the .requisition 
arena appeared generally favorable toward the SRdb concept. 
The best reception was from those with 0 to 5 years of 
requisition experience. Although the user's enthusiasm for 
the SRdb concept appeared genuine, it is recognized that 
their knowledge of the presence of the software's author may 
have somewhat colored their reactions. All said that it was 
superior to the current system of learning, which consists 
primarily of literally copying previous requisitions, 
substituting the name, number, and price of the new item to 
be ordered. 

B. REQUISITION CODES 

The primary problem with the verbatim copying of 
previous requisition stubs is the inadvertent transcription 
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of inappropriate codes. Users have always found it easier to 
copy a sample, rather than research and understand the 
actual meanings of the codes. For example, after the 
issuance of the current NPS Customer Service Manual, the 
Supply Department noticed that the expense code ' T 2D' was 
being placed in block 'O' of virtually all DD-1348's. The 
cause was traced to the fact that all sample DD-1348's shown 
in the new manual used the 'T 2D' code as an example 
[Ref. 1: pp. 4-10 - 4-14]. Most requisition clerks were 
found to be blindly copying it, not really understanding 
why, but thinking that it should work [ Ref. 8] . 

A valid argument may be made that it is unnecessary for 
clerks to understand the meaning of every single code on 
requisition documents. Indeed, six of the 22 codes found on 
a DD-1348 will never change for an NPS customer, therefore, 
it is acceptable for clerks to routinely copy those items. 
However, when a code is variable, under the current system 
the clerk should understand its significance. 

Due to the . internalization of code algorithms within the 
SRdb software, it was most favorably received by inexperi- 
enced personnel who had not yet learned the details of the 
requisition coding process. SRdb generates the appropriate 
codes based upon user response to plain language queries, 
thereby relieving the user from memory work or copying 
exercises. 

C. DOCUMENT PRINTING 

The actual printing of requisition documents by SRdb was 
initially viewed by all users with concern. Due to its small 
size, the DD-1348 requires precise character placement, and 
no one was comfortable with alignment of the forms in the 
printer. It is a process which one learns through trial and 
error. Since SRdb permits an unlimited number of immediate 
reprinting attempts, the skill is rather easily acquired. No 
one required more than four trials to print his or her first 
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requisition. A rapid learning curve for subsequent uses was 
discovered for nearly all users. 

D. DATABASE USAGE 

The notion of reliance upon an electronic database 
rather than the current '3-ring binder' system produced 
surprisingly mixed reviews. It was generally felt that 
unless the SRdb system was already running at the time a 
single requisition needed to be reviewed, it might be easier 
and faster to locate it in the current binder system. All 
agreed that SRdb was superior in the generation of summary 
reports of items not yet received, however, this was not 
viewed as a feature which would be in frequent demand in the 
AS Department. Everyone liked the concept of maintaining 
on-line files of suppliers and account data to avoid typing 
of redundant information on multiple requisitions. 

SRdb was judged by some users to be weak in that the 
beta version requires all requisitions for a particular 
account to be generated via SRdb. In other words, it is 
difficult to 'juggle' the document serial numbers if a 
particular requisition is manually produced on a typewriter. 
This weakness could be overcome in two ways. An additional 
module could be created allowing the user to change the 
serial number of the next document, however, this has 
serious implications in terms of the ultimate integrity of 
the database. Alternatively, a department policy could be 
adopted requiring all requisitions to be generated by SRdb, 
thereby eliminating the possibility of conflicting manually 
generated document serial numbers. 
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V. IMPLEMENTATION CONSIDERATIONS 



A. BENEFITS 

In the case of SRdb, the following potential benefits 
may be derived from the issuance of interactive software 
instead of written instructions and manuals: 

1. Requisitions may be generated more quickly and easily, 
requiring less effort and perhaps permitting a reduc- 
tion in user labor expense. 

2. The time required to train users to produce requisi- 
tion documents may be significantly reduced. 

3. SRdb permits the automatic generation of various 

department level requisition summary reports which may 
be of value to management, however are not now 

produced due to their labor intensity in a manual 
system. 

4. A consistently higher quality of requisition document 
may assist the NPS Supply Department in providing 
better response to customers. Many common requisition 
coding and -procedural errors would be eliminated, 
thereby, reducing the number of documents returned to 
users for correction. 

5. SRdb's automatic generation of requisitions through a 
series of progressive screens may eliminate many of 
the user's telephone queries concerning procedural 
matters to the NPS Supply Department personnel, saving 
time for both. 

Since only the last two of the five potential benefits 
would be enjoyed by the NPS Supply Department, it is legiti- 
mate to question whether it would be sufficiently in their 
interest to sponsor the implementation of an SRdb project. 
Although a majority of the benefits will be realized by 
other NPS departments, the bulk on the development and main- 
tenance expenses probably would fall upon the Supply 
Department. This would call for a change in the typical 
institutional inertia, deeply entrenched in division of 
labor and turf considerations, which notes that 'we will 
tell them how to write a requisition, and we will process 
their finished document, but we are not going to write it 
for them. ' In other words, despite the net potential benefit 
to the command as a whole, it would be natural for the 
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Supply Department to continue to publish written instruc- 
tions, and let the customers in the other departments worry 
about reading, understanding, and executing them. Facing 
such natural barriers, if the Supply Department does not 
view benefits 4 and 5 as sufficient to warrant the expense 
from their viewpoint, it is probable that the concept repre- 
sented by SRdb will require sponsorship from someone at a 
sufficiently high echelon within the command to be concerned 
with the overall common benefit. 

B. COSTS 

The current beta copy of SRdb required 450 hours of 
programming efforts by a relatively novice programmer. After 
software development, the maintenance phase continues to 
represent a substantial investment, frequently exceeding 50% 
of the total cost over the program's life-cycle [Ref. 9]. 
As requisition procedures are modified in the future, new 
versions of SRdb will require code alterations. SRdb may 
offer an advantage in that many modifications could remain 
transparent to the user, however, the costs of program 
changes must still be paid, probably by the originator. The 
concept would be for new versions of floppy diskettes to be 
issued in lieu of the promulgation of change notices to 
written instructions. 

The disparity between media costs (diskette versus paper 
and ink) may not be as great as one might imagine. Now that 
diskettes may be procured in bulk for less than $1.00 per 
copy, the media costs are comparable and are considered to 
be a primary consideration. 

Viewed from a system perspective, SRdb requires the use 
of substantial assets beyond the cost of the SRdb software. 
Command-wide implementation of SRdb would of necessity force 
a review of the availability and utilization levels of 
personal computers throughout the command. NPS is somewhat 
unique in that the proliferation of personal computers has 
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already enabled access to them in every department, however, 
it would certainly be a major consideration in a more 
diverse environment. 

C. SRdb SCOPE 

It should be recognized that SRdb extends well beyond 
the bounds required to provide a software implementation of 
the requisition process as currently described in the appro- 
priate written references [Refs. 1,2,6]. The incorporation 
of a database capability in terms of a formal record keeping 
structure exceeds actions currently directed. The database 
features were included as a result of a survey of the record 
procedures of various departments. 

One may question the wisdom of stipulating the form of 
department records when there has been no guidance previ- 
ously given in this area. While no advantage has been 
conclusively proven supporting a requisition record system 
that is uniform command-wide, there is an appealing logic to 
having one group create a system which is automatically 
updated at the time of requisition generation with no addi- 
tional effort by the user. This is as opposed to the laisse 
faire process of each department reinventing the 'record 
wheel' separately. Certainly a department could use SRdb for 
requisition preparation, choosing to ignore the 
SRdb-produced records, and maintaining its manual binder 
file system instead. In all likelihood, if a descendent of 
SRdb is ever formally implemented, the manual records will 
continue to be kept in parallel with SRdb until user confi- 
dence is fully gained. 
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VI. SUMMARY AND RECOMMEND AT IONS 



SRdb is presented as an example of interactive computer 
software as an alternative to written instructions. The 
concept, as embodied in the SRdb prototype, has been infor- 
mally tested and successfully demonstrated to work in a 
closely controlled environment. Despite the appearance of 
high potential and the numerous common sense arguments which 
may be advanced in favor of software over written instruc- 
tions, it is inappropriate to conclusively state that SRdb 
offers proof of cost efficiency or effectiveness of the 
concept. SRdb is offered as a tool for further research and 
analysis in this arena. 

A. FUTURE ADAPTATIONS OF SRdb 

SRdb may be viewed as an attempt to improve the human 
interface with the NPS supply requisition process without 
modifying the basic system. Although document generation is 
now automated by SRdb, the physical transmission of requisi- 
tion data on paper stubs remains far less efficient and 
somewhat archaic when compared to other procedures which are 
readily available today. For example, an SRdb-like interface 
could easily electronically send the requisition to a host 
computer in the Supply Department, rather than produce paper 
stock which is manually routed. Supply procurement personnel 
could receive, review, and process requisitions on their 
terminals, eliminating enormous amounts of duplication in 
typing efforts. A 'read only' requisition supply status 
database could also be maintained on the NPS mainframe, 
accessible by modem or 3278 terminal from every department, 
eliminating substantial hours in answering routine status 
check phone calls. 
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Although current supply automation experts believe that 
the Navy is not yet ready for completely 'signatureless' 
electronic requisitions from the customer level, as a 
compromise, the system could permit automatic electronic 
transmission and processing of all requisition data elements 
to be followed by a simple signed memorandum citing each 
requisition [Refs. 10,11]. 

Organizations are just beginning to scratch the surface 
in realizing the potential of personal computers when teamed 
with the appropriate software. SRdb is a minor contribution 
to this abrasion process. 
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APPENDIX A 

ABBREVIATIONS AND ACRONYMS 


AS 


Adminstrative Sciences 


Beta 


Initial Test Copy of Software 


Char 


Character 


DBF 


Database File 


DOD 


Department of Defense 


FY 


Fiscal Year 


GSA 


General Services Administration 


MILSTRIP 


Military Standard Requisition and Issue Procedure 


NDX 


Index File 


NPS 


Naval Postgraduate School 


NSC 


Naval Supply Center 


NSN 


National Stock Number 


0 & MN 


Operations and Maintenance, Navy 


OPN 


Other Procurement, Navy 


OPTAR 


Operating Target 


OSI 


Office Supply Issueroom 


RF 


Reimbursable Funds 


RSS 


Ready Supply Store 


SRdb 


Supply Requisition Database 


UIC 


Unit Identification Code 
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I . TO THE NEW USER 



The Supply Requisition Database CSRdb) program is 
designed to be easily used by a person with very little 
knowledge of the NPS Supply system. The menu-driven SRdb 
approach is best learned through experience. The purpose of 
this User’s Manual is to serve as a reference guide if more 
details about a particular process are required. 

Assuming that your copy of SRdb has been configured for 
your department, there is no need to read further. Simply 
follow your department's instruction for disk placement and 
start up SRdb. It is recommended that new users use a test 
database diskette for the first session, so that practice 
requisitions and reports may be generated with no penalties 
for mistakes. Enjoy.... 
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1 1 . START UP PROCEDURES 



WELCOME TO THE NPS SUPPLY REQUISITION DATABASE 



This program is designed to originate requisition 
documents (DD-1348s and SF-36s), as well as maintain 
a database of requisition status for a particular 
department. The system is designed for use by any 
personnel who are familiar with Naval Supply 
terminology , however , a detailed understanding 
of the decision matrix used in the generation of 
requisition documents is unnecessary. 



WARNING - If the user fails to adhere to any warnings 
presented by the program? he does so at 
the risk of data loss. 

Disks should NEVER be removed from the 
drives until the program has been exited. 



Screen 2.1 Welcome 



The SRdb program is presented through a series of menus 
which are felt to be self-explanatory. This user's guide 
will present copies of actual screen displays. For example? 
Screen 2.1 is the first seen when the SRdb program is 
started. The space provided for user inputs would be seen 
as a cursor on the screen. In example screens in this 

manual? the cursor will be represented by an underline . 

If the screen is demonstrating an example of the choice made 
by a user , it will show the selection made as an underline? 
e.g. Y would represent a user's input of 'Y'. 

If this is the first time the program is being run in 
your department ? it should be configured by someone familiar 
with dBASE III and the Program Maintenance Manual. 

1. Turn on the computer & boot up DOS. If you don't know 
how to do this, get someone to do it for you, or read 
your computer instruction manual. 

2. Assuming the program is configured for use in your 
department, load the program in accordance with the 
department's instructions. If none exist, then the 
program disk should be placed in the 'A' drive and the 
database disk placed in the 'B' drive. 

3 . Type ' ORDER ' . 

4. Follow instructions to 'Press a key to continue' until 
you see the Screen 2.2 
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LOAD DISK DRIVES 



Database Disk Location 
Suppliers: 'B' Drive 
Accounts: 'B' Drive 



Screen 2.2 Load Disk Drives 



Ensure that the disk drives are properly loaded before 
proceeding! If you have loaded the disks in locations other 
than the locations now on the screen* this is the time to 
change them. 



III. CONFIGURATION 



CONFIGURATION 



This program has been preconfigured for your use 
and should not require reconfiguration unless 
transported to another system or department. 

WARNING - Configuration changes should only be 

made by personnel familiar with dBASE III. 



Change Configuration (Y/N)? 



Screen 3.1 Configuration Banner 



Normally, the proper response to Screen 3.1 should be 
'N'. The beta copy of SRdb has been preconfigured for the 
NPS Administrative Sciences Department. If you respond with 
a 'Y' to Screen 3.1, you will be given the opportunity to 
modify the default values shown on Screen 3.2. This process 
should be necessary only once per department. 
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This program is configured as follows 
Department : AS 

Bldg: 330 



Room: 230 

Telephone: X2472 

Database disk locations: 

Suppliers: 'B' drive 

Accounts: 'B' drive 

Color Monitor CT/F): T 

Is this the correct configuration (Y/N)? 



Screen 3.2 Configuration Modification 



Responding to Screen 3.2 with a 
displayed configuration to be saved to 



' Y * will cause 
the program disk. 



the 



IV. DATE CONFIRMATION 



Since the computer's system date may not have been 
correctly set, the opportunity is now presented to enter the 
desired date. This date will be used in dating all requisi- 
tion documents and reports, therefore, it is important to 
ensure that it is correct. 



CONFIRM TODAY'S DATE 
12/11/85 
(Y/N)? 



Screen 4.1 Confirm date 



If the date shown in Screen 4.1 is correct, enter 'Y'. 
If you enter 'N', Screen 4.2 will allow you to change the 
date as you desire. 



ENTER TODAY'S DATE 

_/ /_ 

MM/DD/YR 



Note - Leading zeros are required 
for single digit values. 



Screen 4.2 



Enter Date 
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Screen 5*1 Main Menu 



Screen 5.1 is a display of the SRdb Main Menu. The 
following is a description of the various menu options. 

0) Quit and exit the program. 

1) Place an order. Generates the appropriate requisition 
documents and places the order in the database. 

2 ) Permits the entry of a purchase order number for each 
item when the purchase order information is received 
from supply. 

3) Permits the marking of items which have been received. 

4) Generates a listing of items which have not been 
received . 

5) Displays a specific single requisition or a series of 
requisitions based upon a particular requisition 
number or account number. The requisitions displayed 
may be made subject to a range of dates of origin. 

6) Permits the price of an item to be changed in the 
database. It does not regenerate requisition docu- 
ments as this is generally unnecessary. 

7) Allows a new supplier to be entered into the database. 

8) Permits the creation of a new account when the appro- 
priate information is received from the NPS 
Comptroller . 



VI . COMMONLY USED PROCEDURES 



There are several procedures which are used many times 
throughout the SRdb program. This chapter will discuss all 
procedures which are common to two or more major routines. 
For example* the procedures to select an account are the 
same for all six different types of requisitions* therefore* 
account selection is a procedure which will be discussed 
her e . 



A. ACCOUNT SELECTION 





SELECT AN ACCOUNT 


— 


1. By Account Name 


- 


2. By Account Number 


- 


3. Enter New Account 




4. Return to Main Menu - 




Your choice : 1 



Screen 6.1 Select an Account 



Many routines require the user to select a particular 
account for further activity. The desired account may be 
specified by either account name or account number. If the 
account is new* the option is given to create a new account. 
Since creation of a new account is also an option on the 
main menu* it will be discussed later. For purposes of the 
example at hand* it is assumed that the desired account is 
already on file* and the user chooses to specify it by name* 
yielding Screen 6.2 



SRdb displays data on the 'LYONS' account in response to 
Screen 6.2. For user convenience* the name input is not 
sensitive to upper or lowercase. If no account having the 
desired name can be located in the database* the user is so 
informed and instructed to try again. The dBASE III search 
procedure allows for input of partial names* such as 'LY' 
instead of 'LYONS' . 



Once the account is found* the user has several options 
as shown at the bottom of Screen 6.3. For purposes of this 
example* we have chosen to page back to the previous account 
in the database (files are alphabetically arranged by 
account name). This brings up the 'LAPATRA' account as seen 
in Screen 6.4. 
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• 


Account Name: LYONS 

(Blank aborts process) 




Screen 


6,2 Selecting by Account 


Name 


Account 


Name: LYONS 




Account 


Number : R 1235 




Code : 


5ALY 




Research Account (T/F): T 




Requisition Serial # Range - From 


: 6500 




T o : 


6505 




Select an action: 2 




- 1 . 


Use this account 


— 


- 2 . 


Scroll to previous account 


- 


- 3. 


Scroll to next account 


— 


- A . 


Return to last menu 


— 


- 5 . 


Return to main menu 





Screen 6.3 Scrolling to the Previous Account 

The LAPATRA account displayed in Screen 6. A is selected 
for use by choosing option as shown. 



A8 



Account Name: LAPATRA 

Account Number: RCAZ2 

Code: 54LP 

Research Account (T/F): T 

Requisition Serial # Range - From: 7001 

To: 7005 

Select an action: 1 



1. Use this account - 

- 2 . Scroll to previous account - 
3* Scroll to next account 

4. Return to last menu 

- 5, Return to main menu - 



Screen 6.4 Selecting an Account for Use 
B. SUPPLIER SELECTION 





1 . 


SELECT A SUPPLIER 

By Supplier Name - 


— 


2 . 


By Supplier Number - 


- 


3. 


Enter New Supplier 


— 


<4 . 


Return to Main Menu - 






Your choice : 1 



Screen 6.5 Select a Supplier 



Many routines require the user to select a particular 
supplier for further activity. The desired account may be 
specified by either the supplier's name or the supplier 
number. If the supplier has never been used before, the 
option is given to place the 'new' supplier in the database. 
Since entering a new supplier is also an option on the main 
menu, it will be discussed later. For purposes of the 
example at hand, it is assumed that the desired supplier is 
already on file, and the user chooses to specify it by name, 
as in Screen 6.5. Since this process is nearly identical 
procedurally to selecting an account, a briefer example will 
be shown. The following screens will demonstrate the selec- 
tion by 'name' of 'IBM' as the desired vendor. 
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Supplier Name: IBM 

(Blank aborts process) 



Screen 6.6 Looking for IBM 







SELECTED 


SUPPLIER 




IBM GOVT 


PRODUCTS 




321 CYPRESS 


LANE 




0AKM0NT 




NM 43563 


(505) 


864 


-2169 




Supplier #: 2170 






Select 


an action : 1 





1 . 


Use this 


supplier 


- 


2 . 


Scroll 


to 


previous supplier - 


— 


3 . 


Scroll 


to 


next supplier 


- 


4. 


Return 


to 


last menu 




5. 


Return 


to 


main menu 



Screen 6.7 Selecting IBM 



The IBM supplier displayed in Screen 6.7 is selected for 
use by chosing option '1' as shown. The supplier number 
shown is simply a number used by the database to keep track 
of the suppliers . 
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C. REQUIRED DELIVERY DATE 



Every type of order, except $$ Reimbursement to the RSS 
and transportation of material, presents the user with the 
opportunity to specify a Required Delivery Date (RDD). As 
shown in Screen 6.8, specification of the RDD is optional. 
While there are certainly no guarantees, an RDD will assist 
the Supply Department personnel in serving your needs. 



REQUIRED DELIVERY DATE C RDD ) 

This is an optional 3 digit Julian date when the 
material or service is required. It is used to 
assist in the placement of the order. 

Desire to specify an RDD (Y/N)? Y 
Enter RDD s 233 



Screen 6.8 Required Delivery Date 
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D. ORDER PRIORITY 

Three different order priorities are offered users* as 
shown in Screen 6.9, and a brief explanation of each 
priority is presented. 



ORDER PRIORITY 

A - Requirement is immediate and without the material 
required, the activity is unable to perform one 
or more of its primary missions. 

(Note: Requires NPS Superintendent approval) 

B - Requirement is immediate or it is known that such 
a requirement will occur in the immediate future. 

C - Routine requirement. 



Select appropriate order priority: __C 



Screen 6.9 Order Priority 



Most NPS requisitions are properly classified as 
priority 'C'. Occasionally sufficient justification is 
present to rate a requisition priority 'B*. Note that if 
priority ’A' is selected. Screen 6.10 will be displayed. If 
the user chooses priority 'A' and indicates that approval of 
the NPS Superintendent has not been obtained, the opportu- 
nity will be given to reselect a priority. For more infor- 
mation, phone the Issue/Receipt Control Branch at ext. 2012. 



NOTICE 

A priority code of 'A' requires 
NPS Superintendent approval. 

Have you obtained approval (Y/N)? 



Screen 6.10 Priority 'A' Warning 
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E . PREPARE PRINTER 

Screen 6.11 will appear as a warning anytime output is 
being directed to the printer. If the user opts not to 
continue, the current procedure will be aborted, and the 
Main Menu, Screen 5.1, will be displayed. If a requisition 
was being prepared, all data entered for that requisition 
will be lost. 



PREPARE PRINTER 



Since output will now be sent to the 
printer, it should be connected and 
have the power turned on now. 

WARNING - Failure to prepare the printer may cause 
the computer to hang and possibly result 
in loss of data. 



Continue (Y/N)? 



Screen 6.11 Prepare Printer Warning 



If the user continues past this screen, and the printer 
is not powered, the system may hang. This will result in the 
loss of the most recently entered data and may actually 
damage data files, rendering them unreadable. 

If Screen 6.12 is displayed, ensure the printer is prop- 
erly powered, connected, and loaded. The correct response to 
Screen 6.12 is an 'R'. If the printer is now prepared to 
print', the process will continue. 

WARNING - If the user responds to Screen 6.12 with an 
'A 1 , the SRdb program will be aborted, the user returned to 
DOS, and data files may be damaged. 



No paper error writing device PRN 
Abort, Retry, Ignore? 



Screen 6.12 Device Error 
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Screens 6.13 and 6.14 are self-explanatory examples of 
displays which prompt loading of the correct form. The 
printer should be carefully loaded such that the document is 
positioned to print on the very first line. Forms loaded 
prior to the proper screen prompt may be ejected as the 
printer is addressed by the program. 



LOAD SF-36 INTO PRINTER 


& 




PRESS ANY KEY TO 


CONTINUE 


Screen 6.13 Load 


SF-36 


LOAD DD-1348 INTO 


PRINTER 


& 




PRESS ANY KEY TO 


CONTINUE 



Screen 6.14 



Load DD-1348 



VII. 10 PLACE AN ORDER 



TO PLACE AN ORDER 

The purpose of this program is to generate the 
appropriate supply forms (DD 1348-6 S/or SF 36) to 
place an order . 

Select the type of order 

1. Open Purchase 

2. Standard stock items from NPS RSS, NSC Oakland, 

or G S A 

3. Standard forms from NSC Oakland 

4. Publications from NAVPUBFORMCEN Phil 

5. $$ Reimbursement to NPS Ready Supply Store 

6. Transportation of material (e.g. Federal Express) 

7. Return to main menu 



Your order: 



Screen 7.1 To Place an Order 



Screen 7.1 shows the 6 different categories of requisi- 
tions which may be prepared. The category titles should be 
self-explanatory. Common procedures, which were described 
in detail in the last chapter, will not be discussed 
further. These procedures, such as selecting an account or 
supplier, will be listed as occurring, however, the reader 
is referred to the previous chapter for details. 
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A 



OPEN PURCHASE 



The Open Purchase order appears as option *1' on Screen 
7.1 The following is the proper sequence of events to 
complete an open order. 

1) Select an account 

2) Select a supplier 

3) Option to specify an RDD 

A) Select requisition priority 

5) Enter item to be ordered 

6) Prepare printer 

1 . Enter I tern to be Ordered 

Screen 7.2 provides the user the opportunity to 
enter the description of the item to be purchased. It is 
important to note that although the entire description will 
appear on the requisition documents, only the 44 characters 
on the first line of the description will be saved in the 
database. It is important that the first line be suffi- 
ciently descriptive of the item, for it is this description 
which will appear on later reports and requisition 
summaries. SRdb has limited the size of the filed descrip- 
tion due to program efficiency and disk space considera- 
tions. If the user leaves the first line of the item 

description blank, SRdb assumes that all desired items have 
been ordered. Up to 12 items may be ordered on a single 
SF-36. Note that this is a limitation of SRdb rather than an 
official supply limitation. 



Item 


# : 1 






ENTER ITEM TO BE 


ORDERED 


Item 


description: 






<- 

Unit of issue : e_a 

Unit price: $ 

Quantity: 


-Only this line is filed 
(Blank ends process.) 




Is this order correct 


(Y/N)? 



Screen 7.2 Open Order 



56 



Screen 7.3 is an example of an order for two IBM 
Personal Computers. If the user indicates that there is an 
error on the screen* an opportunity will be provided to edit 
the item currently displayed. Once the user indicates that 
the order for an item is correct) there is no opportunity to 
change the request. The entire requisition may be aborted 
just prior to printing* as described in Chapter 5. 



I tern 


#: 1 

ENTER ITEM TO BE 


ORDERED 


I tern 
IBM 


description : 

Personal Computer <- 


-Only this line is filed 


256 K 


Memory 


2 disk dr i ves 


(Blank ends process.) 




Unit of issue: e_a 






Unit price: $ 1545.00 






Quantity: 2 






Is this order correct 


(Y/N)? Y 



Screen 7.3 Sample Open Order 
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B. STANDARD STOCK REQUISITION 

The Standard Stock Order appears as option '2' on Screen 
7.1 This option is used to place an order for any materials 
which have a National Stock Number (NSN) assigned* except 
forms or publications. The following is the proper sequence 
of events to complete a standard stock order. 

1) Select an account 

2) Select a stock source 

3) Option to specify an RDD 

A) Select requisition priority 

5) Enter item to be ordered 

6) Prepare printer 

1 . Select Standard Stock Source 

As seen in Screen 7. A* there are 4 different sources to 
which a standard stock request may be addressed. The source 
used will depend upon where the item is located. 





STANDARD STOCK REQUISITION 




This program prepares a requisition 


for 


either a 


GSA or DOD 


standard stock item. If 


you 


want to 


order forms 
menu . 


or publications* return 


to 


the previous 


- 1 . 


NPS RSS Order 






- 2. 


NSC Oakland Order 


- 




- 3. 


. GSA Order 


- 




- 4 . 


Return to previous menu 
Select: 







Screen 7.4 Standard Stock Sources 



2. Enter Item to be Ordered 

Screen 7.5 provides the user the opportunity to 
enter the stock number and a short description of the item 
to be purchased. The item will be described in the SRdb 
database as a concatenation of the stock number and the 
short name. The Distribution COG may be obtained in the same 
listing in which the stock number was found. 

Since a standard stock requisition may contain only 
one type of item* once the user verifies that the item 
description is correct* the requisition will be printed. 
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ENTER ITEM TO BE ORDERED 

Stock number: 23<42S5666<435<4 

Short name: Pencil Holder 

Black 

Distribution COG symbol: 3_T 

Unit of issue: .ea 

Unit price: $ 1.55 

Quantity: 30 

Is this order correct (Y/N)? _Y 



Screen 7.5 Standard Stock Item Entry 



C. NSC OAKLAND FORMS REQUISITION 

The requisition of forms from NSC Oakland* CA* appears 
as option '3' on Screen 7.1. This option is used to place 

an order for standard forms* which are assigned an NSN and 
are stocked at NSC Oakland. The following is the proper 

sequence of events to complete an NSC Oakland forms order. 

1) Select an account 

2) Option to specify an RDD 

3) Select requisition priority 

<4 ) Enter item to be ordered 

5) Prepare printer 

Since this procedure is identical to the standard stock 
requisition process presented above* it will not be 

repeated. Screen 7.6 notifies the user of the selected 
process and provides an opportunity to abort. 
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FORMS ORDER 



This program prepares the documents required to order 
forms from NSC OAKLAND. If you desire to order forms 
from NAVPUBFORMCEN P h i ladelp h i a > do not continue. 



Continue (Y/N)? 



Screen 7.6 Forms Order 



D. PUBLICATION REQUISITION 

The requisition of publications from NAVPUBFORMCEN, 
Philadelphia, PA, appears as option '4' on Screen 7.1. This 
option is used to place an order for publications, which are 
assigned an NSN and are stocked at NAVPUBFORMCEN. The 

following is the proper sequence of events to complete a 
publication order. 

1) Sel.ect an account 

2) Option to specify an RDD 

3) Select requisition priority 

4) Enter item to be ordered 

5) Prepare printer 

Since this procedure is identical to the standard stock 
requisition process presented above, it will not be 

repeated. Screen 7.7 notifies the user of the selected 
process and provides an opportunity to abort. 
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PUBLICATION ORDER 



This program prepares the documents required to order 
publications from NAVPUBFORMCEN , Philadelphia. 



Continue (Y/N)? 



Screen 7.7 Publication Order 



E. RSS REIMBURSEMENT 

The reimbursement of the NPS RSS through issance of a 
'money value only' DD-1348, appears as option '5' on Screen 
7.1. The following is the proper sequence of events to 
complete a DD-1348 for RSS reimbursement: 

1) Select an account 

2) Enter the amount to be paid 

3) Prepare printer 



Screen 7.8 notifies the user of the selected process and 
provides an opportunity to abort. 



$$ REIMBURSEMENT TO RSS 

This program prepares a DD-1348 for 'money value only' 
as reimbursement to the NPS RSS. 

Continue (Y/N)? 



Screen 7.8 RSS Reimbursement 
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F 



TRANSPORTATION OF MATERIAL REQUISITION 



The requisition of transportation of material appears as 
option '6' on Screen 7.1. This option is used to to pay for 
services* such as Federal Express* which are used to trans- 
port needed materials. The following is the proper sequence 
of events to complete a transportation of materials requisi- 



tion . 








1 ) 


Select 


an account 




2) 


Select 


a supplier 


(company ) 


3) 


Enter 


transportation serial number 


A) 


Select 


requisition 


priority 


5) 


Enter 


to whom item 


is addressed 


6 ) 


Prepare printer 





TRANSPORTATION OF MATERIAL 



This program prepares the supply documents necessary 
to use commercial carriers (e.g. Federal Express or 
UPS) to ship items. 



Continue (Y/N)? 



Screen 7.9 Transportation of Material 



Screen 7.9 notifies the user of the selected process and 
provides an opportunity to abort. The only new procedure in 
this order sequence is the entering of the Transportation 
Document Serial Number as displayed in Screens 7.10 and 
7.11. Screen 7.10 provides the opportunity to abort the 
process* if the proper document serial number has not been 
obtained . 
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ENTER TRANSPORTATION SERIAL NUMBER 



Transportation requests require issuance of a special 
serial number directly from the comptroller. Phone 
the NPS comptroller at x2257 to obtain. 

Select an action: 1 



- 1. Ready to enter serial number - 

- 2. Abort to main menu 



Screen 7.10 Prepare to Enter Transportation Number 



Enter Serial #: 1234 

Correct (Y/N)? 



Screen 7.11 



Enter Transportation Serial Number 



VIII. UPDATE FILES WITH PURCHASE ORDER 



In choosing option 2 from the Main Menu* Screen 5.1* the 
user is presented with the opportunity to enter purchase 
order numbers from supply for each item. Screen 8.1 noti- 
fies the user of the selected process and provides an oppor- 
tunity to abort. 



INPUT PURCHASE ORDER NUMBER (PO#) 



Once a PO# is received from supply » this program 
permits entry of the PO# for each item ordered. 
Since not all items on the original requisition 
may have been ordered by supply on the same 
purchase order* you are requested to separately 
confirm each item on the purchase order. 



Continue (Y/N)? 



Screen 8.1 Input P.0. # 



If the user chooses to continue* he will be asked to 
input the requisition number and the purchase order number 
(PO #) of the item he is seeking* as in Screen 8.2. Leaving 
the requisition number blank will abort the process and 
return the user to the main menu. 



ENTER DATA 

Requisition # : 23423423 

(Blank ends process) 

Purchase Order #: 12345678 

Correct (Y/N)? 



Screen 8 . 2 



Input Req # and PO # 



If the requisition is not found in the file, Screen 8.3 
is displayed. The user will subsequently be given another 
opportunity to enter the requisition number. 



REQUISITION NOT IN FILE 

Please double check the requisition # and try again. 
Press any key to continue... 



Screen 8.3 Requisition Not Found 



Once the requisition is found, each item on the requisi- 
tion will be displayed one at a time. The user will have the 
opportunity to indicate exactly which items are on the 
purchase order, as seen in Screen 8.4. 



Requisition # 


: 23423423 






Item: dBASE 


III 






Quantity : 


1 






Unit Price : 


456 . 75 






Is this item on purchase 


# 12345678 


(Y/N)? 





Screen 8.4 Item Displayed for PO # Input 
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IX. MARK ITEMS RECEIVED 



In choosing option 3 from the Main Menu/ Screen 5.1/ the 
user is presented with the opportunity to enter notation of 
the receipt of items in the database. Screen 9.1 notifies 
the user of the selected process and provides an opportunity 
to abort . 



INPUT RECEIPT STATUS 



You will be given the opportunity to indicate if 
specific items/ currently not marked as received/ 
have now been received. Items reviewed will be 
grouped by requisition number or purchase order 
number at your option. 

Continue (Y/N)? 



Screen 9.1 Mark Receipt of an Item 



The user is permitted to identify the received item by 
specifying the original requisition number or the purchase 
order number (PO#)/ assuming the file has been updated with 
the POt. Screen 9.2 shows an example of the user choosing 
to specify a requisition number. 



SRdb will then screen the database and individually 
display each item filed under that number which is not 
already marked as received. If all items have been marked as 
received/ the user will be so informed. Otherwise/ each 
outstanding item will be displayed/ as in Screen 9.3. 



66 



PREPARING TO MARK ITEMS RECEIVED 



Select: 1 



- 1. Show by requisition # - 

2. Show by purchase order # - 

- 3. Return to main menu - 



Enter Requisition #: 53156504 

Note - Blank ends process 



Screen 9.2 Pick Requisition Number or PO f 



The following 


item 


shown as not received 


Requisition # 


: 53156504 


Purchase Ord 


# : 


54443221 


Item: dBASE 


III 




Quantity: 


1 


Unit Price: $ 456.75 


Has this item 


been 


received (Y/N)? 



Screen 9.3 Item Not Shown as Received 
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X. LIST ITEMS NOT YET RECEIVED 



In choosing option 4 from the Main Menu* Screen 5.1* the 
user is presented with the opportunity to create a listing 
of all items in the database which are tagged as not 
received. Screen 10.1 notifies the user of the selected 
process and provides an opportunity to abort. 



LIST ITEMS NOT RECEIVED 



This program generates a listing of items ordered but 
not yet received. The list may be sent to the screen 
or printer at the user's option. The search for items 
not received may also be limited within parameters 
provided by the user. 



Continue ( Y/N ) ? 



Screen 10.1 List Items Not Received 



As shown in Screen 10.2* the user may select from two 
search types. Both searches will list only items marked as 
not received. The user is also given the option of 
displaying the listing on the screen or routing it to the 
printer . 
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Select Search Type 



- 1. No limits (show all items not received) 

- 2. Limit list to specific account number 

- 3. Return to main menu 



Select Display: 



1. Screen 

2. Printer 



Screen 10.2 



Search Type Selection 



XI. DISPLAY A REQUISITION 



In choosing option 5 from the Main Menu. Screen 5.1, the 
user is presented with the opportunity to display one or 
more requisitions from the SRdb database. Screen 11.1 noti- 
fies the user of the selected process and provides an oppor- 
tunity to abort. 



DISPLAY REQUISITION 



This program will display one or more requisitions 
subject to user selection criteria. The list may 
be sent to the screen or printer at the user’s 
option . 



Continue ( Y/N ) ? 



Screen 11.1 Display Requisitions 



Screen 11.2 is the primary menu for selecting options 
for the display of requisitions. The user is asked to choose 
the type of requisition search and the mode of the output, 
either screen or printer. 



If the user wants to print out only a single requisi- 
tion, he will select option '1' from Screen 11.2, and he 
will then prompted for entry of the requisition number. 
Option ’2’ from Screen 11.2 will allow the user to view all 
requisitions on file from a specific account. If the user 
selects option ’4’, he will have the opportunity to review 
all requisitions from a single account generates between two 
dates, as seen in Screen 11.3. 
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DISPLAY REQUISITIONS 
Selection: 3 



0. Return to main menu 

1. Display single requisition 

2. Display requisitions from specific account 

3. Display requisitions subject to account # & date 



Select Display: _1 



1 . 


Screen 


2 . 


Printer 



Screen 11.2 Display Requisition Options 



Find Requisitions Created 
Between 

10/01/85 and 12/11/85 

mm/dd/yy mm/dd/yy 



Screen 11.3 Requisition Generation Dates 
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XII. CHANGE AN ITEM PRICE 



In choosing option 6 from the Main Menu , Screen 5*1/ the 
user is presented with the opportunity to update the actual 
price of an item which has already been ordered and is in 
the SRdb database. It is not uncommon to receive price 
changes from NPS Supply after an item has been ordered. 
Screen 12.1 notifies the user of the selected process and 
provides an opportunity to abort. 



CHANGE ITEM PRICE 



This module is used when the item*s final price 
differs from that on the original requisition. You 
will be shown all items associated with a specific 
requisition # or purchase order #. Upon displaying 
each item, you will be given the opportunity to 
change the item f s unit price or scroll to the next 
item. 



Continue (Y/N)? 



Screen 12.1 Change Item Price 



Items may be reviewed by specifying either the original 
requisition number or the purchase order number, if one has 
been assigned. An example will be shown specifying a requi- 
sition number, as in Screen 12.2. 

If the requisition number entered in Screen 12.3 cannot 
be found, Screen 12.4 will be presented. The user will be 
presented with another opportunity to enter the correct 
requisition number. 

Screen 12.5 presents the item to the user and asks if a 
price change is desired. If the user responds f Y f , then the 
cursor will move to the price and permit a change. The user 
will be asked to confirm changes before they are saved to 
the database. If a mistake is made, the process may be 
repeated until the correct price is filed. 
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Preparing to change an item price 



Select : 1 



1. Show by requisition # 

2. Show by purchase order # - 

3. Return to main menu 



Screen 12.2 Select Item by Req # or PO # 



Enter Requisition # j 12345678 
Note - Blank ends process 

Correct (Y/N)? 



Screen 12.3 Enter Requisition Number 



Requisition # not in file. 

Please double check the Requisition # and try again. 
Press any key to continue... 



Screen 12.4 Requisition Not Found 
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Requisition #: 53365707 

Purchase Ord #: 

Item: 9 Meg Buffer Board 

Quantity: 2 Unit Price: $ 2875.50 

Change unit price (Y/N)? 



Screen 12.5 



Item Displayed for Price Change 



XIII. ENTER A NEW SUPPLIER 



In choosing option 7 from the Main Menu* Screen 5.1, the 
user is presented with the opportunity to enter a new 
supplier into the database. All required information, name, 
address, and phone number should be available to the user. 
The phone number is mandatory. It is used by SRdb to select 
a supplier number. The supplier number is simply a number 
used by the program to keep track of the suppliers. Since 
suppliers may be recalled by their name, there is no need 
for a user to commit the supplier numbers to memory or main- 
tain an external list. Screen 13.1 notifies the user of the 
selected process and provides an opportunity to abort. 



INPUT A NEW SUPPLIER 



In order to input a new supplier, you must have the 
following information available at this time: 

Supplier Name 
Address 
Phone # 

The phone number is mandatory. Do not proceed unless 
you are ready to enter the above information. 



Continue CY/N) ? 



Screen 13.1 Enter New Supplier 



Screen 13.2 shows an example of the blanks the the user 
will be expected to complete. Screen 13.3 is an example 
which has been completed by the user. Note that SRdb has 
assigned the supplier number. 
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INPUT 


NEW SUPPLIER 




Name : 








Address : 








City: 




State : 


Zip : 


Phone : ( 


) 






Note - Phone # is 


mandatory 





Screen 13.2 Input new Supplier 





INPUT NEW 


SUPPLIER 




Name : 


New Guv Cables 






Address 


: 1021 Brandnew 


Circle 




City: 


Jiqdoq 


State: GA 


Zip: 31907 


Phone : 


(404) 421-8895 








Assigned Supplier #: 8896 

Press any key to continue... 





Screen 13.3 New Supplier Example 
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XIV. CREATE A NEW ACCOUNT 



In choosing option 8 from the Main Menu > Screen 5.1, the 
user is presented with the opportunity to enter a new 
account into the database. All required information should 
have been received from the NPS Comptroller office and be 
available to the user. Screen 14.1 notifies the user of the 
selected process and provides an opportunity to abort. 



CREATE A NEW ACCOUNT 



In order to enter a new account you must have 
the following information available at this time: 

Account Name 

Account # (assigned by NPS Comptroller) 
Serial # range assigned to account 
Is it a research account? 

WARNING - If you do not understand any of the 
above items, seek assistance and do 
not continue further at this time. 



Continue (Y/N)? 



Screen 14.1 Enter New Account 



Screen 14.2 shows an example of the blanks the the user 
will be expected to complete. Screen 14.3 is an example 
which has been completed by the user. The ability to enter 
the last serial number used assists in transitioning current 
accounts to the SRdb system. If an account is brand new, the 
next document serial number to be used is the first one in 
the series. If the account is being transitioned to SRdb, 
simply enter the last serial number used, and the system 
will properly number future requisition documents. 
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INPUT NEW ACCOUNT 



Account Name 



Account Number: 

Code : 

Research Account (T/F) 



Requisition Serial # Range - From: 

To: 

Last Serial # Used: 

(leave blank if account never used yet) 



Screen 14.2 Input New Account Screen 



INPUT NEW ACCOUNT 



Account Name: Newman , B N 
Account Number: R4321 
Code: 54NM 

Research Account (T/F): T 

Requisition Serial # Range - 
Last Serial # Used: 



From : 9000 

To: 9005 



(leave blank if account never used yet) 



Correct (Y/N)? 



Screen 14.3 New Account Example 
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APPENDIX C 
DATABASE STRUCTURE 



The program uses 5 separate database files (.dbf) < 4 of 

which have 2 indexes each. The width of fields and indexes 
are expressed in bytes. It should be noted that the size of 
indexes are approximations which were calculated in accor- 
dance with the procedures outlined in the Ashton Tate 
Advanced Programmer s Guide [Ref. 12]. The grand totals 
given for each account represent the minimun number of bytes 
required for each record in the database. The reader is 
referred to the Ashton Tate - Advanced Programmer's Guide 
[Ref. 12] for more in depth sizing algorithms. 

ACCNT. dbf 



Field 


I^e 


Width 


ANAME 


~T2 — 


ACCNO 


c 


5 


CODE 


c 


4 


RESEARCH 


L 


1 


LOSERNO 


C 


4 


HISERNO 


C 


4 


LASTUSED 


c 


4 . 


Indexes 


Total 




ANAME A 


20 




ACCNO A 


13 


33 


Grand total 


“57 



SUP. dbf 



Field 




Width 


SNAME 


"73 — 


ADDR 


C 


20 


CITY 


C 


12 


STATE 


c 


2 


ZIP 


c 


5 


FONE 


c 


10 


SUPNO 


c 


4 


Indexes 


Total 


~~7S 


SNAME S 


28 




SUPNO S 


12 


40 


Grand total 


ITS 
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REQ. dbf 



Field 


Tjp 


Width 


REONO 


~ 5 ~ 


acCno 


c 


5 


PRI CODE 


c 


1 


SUPNO 


c 


4 


RDATE 


D 


9 


Indexes 


Total 


T 7 


Reqno r 


16 




ACCNO R 


13 


29 


GrandHEotal 


“F5 



ITEM, dbf 



Field 


Type 


Width 


Dec 


DESCRIP 


-ir~ 


44 




UNIT 


C 


2 




OUANT 


N 


5 




OPRICE 


N 


8 


2 


REQNO 


C 


8 




PONO 


C 


8 




RCVD 


L 


1 






Total 


“75 




Indexes 








REQNO I 


16 






SUPNO - I 


16 


32 




Grand total 


JUS 





TEMPLATE. dbf 



Field 

ITEMNO 




Width 
— 2 — 


Dec 


DESCRIP 


c 


44 




DESCRIP2 


c 


44 




DESCRIP3 


c 


44 




UNIT 


N 


2 




UPRICE 


N 


8 


2 


QUANT 


N 

Total 


8 

155 





No indexes are required. This .dbf serves as a template 
which is copied to a TEMP ORD. dbf whenever an open purchase 
order is to be made. After the requisition documents have 
been prepared, TEMPORD. dbf is erased. 
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APPENDIX D 
DATA DICTIONARY 



1 . INTRODUCTION 

Memory variables in dBASE III remain local to the 
modules in which they were created unless they were declared 
PUBLIC prior to having a value initially assigned. This 
data dictionary lists all PUBLIC memory variables. Unless 
otherwise noted, memory variables are assumed to be of type 
character. 



II . STATIC DATA 

Static data elements usually do not change values during 
a typical normal run. They are frequently associated with 
control or reference. All static data elements have preas- 
signed values. 



A. File Names 



The following data • elements identify specific disk files 
and are always concatenated with a disk identifier (A,B,C, 
etc. stored as C_ADRV or C_SDRV). 

ACCNO_A ndx file to ACCNT. dbf indexed on account number. 
ACCNO_R ndx file to REQ. dbf indexed on account number. 
ACCNT dbf file for all accounts. 



C_ADRV 

C_SDRV 

ITEM 
PONO I 



Memory variable stored in CONFIG. VAR file 
designating the expected disk drive location for 
account ana requisition related files. 

Memory variable stored in CONFIG. VAR file 
designating the expected disk drive location for 
supplier files. 

dbf file holding each item which has been 
requisitioned and related information. 

ndx file to ITEM. dbf indexed on purchase order 
numbers. 



REQ dbf file holding data relating requisitions to 

specific suppliers and accounts. 

REQNO_I ndx file to ITEM. dbf indexed on requisition 
numbers. 



REQNO_R ndx file to REQ. dbf indexed on requisition 
numbers. 



SNAME_S ndx file to SUP. dbf indexed on supplier name. 

SUP dbf file listing names, addresses, and phone 

numbers of known suppliers. 
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SUPNO_S 

TEMPLATE 



TEMPORD 



ndx file to SUP. dbf indexed on supplier number. 

an empty dbf file containing the structure of 
fields essential in creation of an open order 
requisition. It is used to create the TEMPORD 
file whenever an open order requisition is 
executed. 

a temporary file used to hold the full description 
of all items in an open order. The regular 
ITEM. dbf only stores a one line description ( 38 
characters). This file temporarily holds 2 
additional 38 character lines until the SF-36 has 
been printed. After the SF-36 document has been 
successfully printed, and the essential details of 
the requisition have been filed in the ITEM. dbf 
and REQ. dbf, the TEMPORD file is erased. 
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B. Mi sc Static Memory Variables 



CCOLOR 

ERRCOLOR 

FY 

MONEY 

MSCOLOR 

WMSG 



Holds color assignments for normal text screen 
output. May be changed to accommodate monochrome 
monitors based on the value of C_CLRMON, however, 
since the program is expected to always be run on 
the same system, this is viewed as a static 
variable. 

Holds color assignments for error messages for 
screen output. May be changed to accommodate 
monochrome monitors based on the value of 
C_CLRMON, however, since the program is expected 
to always be run on the same system, this is 
viewed as a static variable. 

Last digit of the fiscal year used in the 
construction of the appropriate FY oriented julian 
date for use in forming valid requisition numbers. 
The fiscal year is stored in a FY. ID file on the 
account disk. 

String "MONEY VALUE ONLY" to be inserted on on a 
DD-1348 prepared to pay an NPS RSS billing. 

Color assignments for highlighted messages for 
screen output. May be changed to accommodate 
monochrome monitors based on the value of 
C_CLRMON, however, since the program is expected 
to always be run on the same system, this is 
viewed as a static variable. 

Wait message which requests user to "press a key 
to continue. This was used vice the system wait 
prompt because this message is centered. 
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III . DYNAMIC INPUT DATA ELEMENTS 

The following data elements directly receive values from 
user inputs during the program run. A brief description of 
the variable is followed by legal value constraints ( length, 
data type). 



ACCNO 

ADDR 

ADDR1 

ADDR2 

ADDR3 

ADDR2 

ANAME 

AREACODE 

CITY 

CODE 

DESCRP 

DIST 

EXT1 

EXT2 

FONE 

HISERNO 



Account number assigned by NPS Comptroller and 
entered in ACCNT. dbf in NEW ACNT. PRG; is unique. 

(5 char) 

Supplier street address as input to SUP. dbf by 
user; filed in SUP. dbf by NEW_SUPL. PRG (20 char) 

1st line of address of receiver of material 
shipped by XPOR_ORD. PRG. (25 char) 

2nd line of address of receiver of material 
shipped by XPOR_ORD. PRG. (25 char) 

3rd line of address of receiver of material 
shipped by XP0R_0RD. PRG. (25 char) 

4th line of address of receiver of material 
shipped by XPOR_ORD. PRG. (25 char) 

Account name, usually individual's last name, as 
entered in ACCNT. dbf in NEW_ACNT. PRG. (12 char) 

Phone areacode of supplier as input to SUP. dbf in 
NEW_SUPL. PRG. (3 char) 

City of supplier address as input to SUP. dbf by 
user; filed in SUP. dbf by NEWjSUPL. PRG (12 char) 

Code of individual account as entered in ACCNT. dbf 
in NEW_ACNT. PRG. (4 char) 

The mem var which receives an item description. 

The value is subsequently filed in the DESCRIP 
field of the ITEM. dbf file. (44 char) 

Distribution symbol used in ordering stock- 
numbered items. (2 char) 

Phone extention of the 1st point of contact listed 
in a supplemental memo accompanying an order 
exceeding $1,000. (4 char) 

Phone extention of the 2nd point of contact listed 
in a supplemental memo accompanying an order 
exceeding $1,000. (4 char) 

Phone number of supplier as input to SUP. dbf in 
NEW_SUPL. PRG. (7 char) 

High serial number in range of serial numbers 
assigned to a specific account by the NPS 
Comptroller and entered in ACCNT. dbf in 
NEW_ACNT. PRG. (4 char) 
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LASTUSED 



LOSERNO 

NOMEN 1 
NOMEN 2 
POC1 

POC2 

PRI 

QUNT 

RESEARCH 

RDD 

RDD_YES 

SHIPTO 

STATE 

STKNUM 

TODAY 

UNT 



Serial number used in most' recent requisition (not 
including transportation requisitions) from a 
specific account entered in ACCNT. dbf in 
NEW_ACNT. PRG. This field is updated in the process 
of making each new order. (4 char) 

Low serial number in range of serial numbers 
assigned to a specific account by the NPS 
Comptroller and entered in ACCNT. dbf in 
NEW_ACNT. PRG. (4 char) 

Used to hold 1st line of a short description for a 
stock-numbered items in BUY1_ITM. PRG. (13 char) 

Used to hold 2nd line of a short description for a 
stock-numbered item in BUY1_ITM. PRG. (13 char) 

1st "point of contact" listed in a supplemental 
memo which accompanies orders exceeding $1,000. 

(22 char) 

2nd "point of contact" listed in a supplemental 
memo which accompanies orders exceeding $1,000. 

( 22 char ) 

1 letter code indicating priority assigned to 
requisition by user. ( A , B , or C ) 

Quantity of item to be ordered. 

(1 - 99999, numeric) 

Logical variable assigned . T. if. account involves 
research monies. (1 logical) 

Required delivery date; 3 digit julian date that 
material is desired; assists supply department in 
placing order. (1 - 366, numeric) 

Logical variable showing if the user has chosen to 
specify an RDD. ( . T. if rdd specified; . F. if rdd 
not specified) 

Addressee to whom material is to be transported 
when requisition is to cover transportation of 
material; used by XP0R_0RD. PRG (25 char) 

State of supplier address as input to SUP. dbf by 
user; filed in SUP. dbf by NEW_SUPL. PRG (2 char) 

Federal stock number of item ordered by 
BUY1_ITM. PRG (13 char) 

Date variable holding today's date. If 
transactions are to be generated for dates other 
than today, this date must be modified in 
GET_D ATE .PRG ( MM/DD/ YY , date) 

Unit of order, e. g. 'ea' , ' dz ' , etc. (2 char) 
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UPRCE 



ZIP 



Unit price of item. Must allow for order of items 
which are free. ( 0 - 99,999.99, numeric) 

Zip code of supplier address as input to SUP. dbf 
by user; filed in SUP. dbf by NEW_SUPL. PRG 
(5 char) 
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IV . DYNAMIC OUTPUT DATA ELEMENTS 



The following data elements receive values from within 
the program during the program run. The domain of values is 
controlled since the user never inputs a value directly, but 
rather, values are assigned internally based upon his 
response. An example of this type of data element may be 
seen in the following construction in which DEMAND is a 
dynamic output data element: 



If answer = 'Y' 
DEMAND = ' R' 

0 1 SG 

DEMAND = 'N' 
endif 



AREAC0DE1 Areacode of 2nd supplier to appear on a 

supplemental memo which accompanies orders 
exceeding $1,000.00. AREACODEl is not input by 
user, but rather read from AREACODE field of of 
the record the user has chosen from the SUP. dbf . 
Value assignment is made in the SUP_MEM0. PRG 
( 3 char ) 



AREAC0DE2 Areacode of 3rd supplier to appear on a 

supplemental memo which accompanies orders 
exceeding $1,000.00. AREACODE2 is not input by 
user, but rather read from AREACODE field of of 
the record the user has chosen from the SUP. dbf. 
Value assignment is made in the SUP_MEMO. PRG 
( 3 char ) 

CHECKER an internal variable which assumes the value of 

the LASTUSED serial number of an account, used in 
the calculation of a new requisition number by 
CALC_REQ. PRG (4 char) 

CITY1 City of 2nd supplier to appear on a supplemental 

memo which accompanies orders exceeding $1,000.00. 
CITY1 is not input by user, but rather read from 
CITY field of of the record the user has chosen 
from the SUP. dbf . Value assignment is made in the 
SUP_MEMO. PRG (12 char) 



CITY2 City of 3rd supplier to appear on a supplemental 

memo which accompanies orders exceeding $1,000.00. 
CITY2 is not input by user, but rather read from 
CITY field of of the record the user has chosen 
from the SUP. dbf. Value assignment is made in the 
SUP_MEM0. PRG (12 char) 

COUNTER Numeric variable used to count the number of line 
items in a requisition. (1 - 13, numeric) 



DEMAND Refers to the recurring nature of demand for an 
item or service. ( R if demand is recurring; N 
if nonrecurring. ) 



DOCID Document identifier as per p. 4-7 of Ref 1. 

( AOA for NSN items; AOD for Navy Forms & 
Publications; AOE for non- standard stock items. ) 



87 



F0NE1 

FONE 2 

FUND 

GOAHEAD 

JULIAN 

MARKER 

MS Code 



Phone number of 2nd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. FONE1 is not input by user, 
but rather read from FONE field of of the record 
the user has chosen from the SUP. dbf . Value 
assignment is made in the SUP_MEMO. PRG (7 char) 

Phone number of 3rd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. FONE2 is not input by user, 
but rather read from FONE field of of the record 
the user has chosen from the SUP. dbf. Value 
assignment is made in the SUP_MEMO. PRG (7 char) 

Fund Code as described on p. 4-8 of Ref. 1. 

('2S' for non-reimbursible requisitions; 'Y6 for 
APA material) 

Logical control value used to control execution 
flow in BUY2_ITM. PRG after running of WARNING. PRG 
( 1, logical) 

3 digit numeric value based on julian date as 
calculated by GET_DATE. PRG (1 - 366, numeric) 

Tracks the number of lines being displayed on the 
screen to ensure that output does not overflow 
screen. Initialized to 9, triggers a wait' when 
value > 23. (9-24, numeric) 

MSS Code as described on p. 4-7 of Ref. 1. Value is 
assigned based on PRI CODE. Used only for standard 
stock requisitions. ( W' for PRI_C0DE = A ; T 
for PRI CODE = ' B ' or 'C'). 



PRIORITY 



Priority code as described on p. 4-8 of Ref. 
Value is assigned based on PRI_CODE. .(08' fo 
PRI CODE = 'A 7 : '10' for PRI_CODE = ' B ' ; '15 T 

PRI_CODE = ' C ' ) . 



1 . 

r 

for 



REQNO 



RMKO 



ROUTE 



Requisition number which is concatenation of the 
last digit of the FY + 3-digit JULIAN date + 

4-digit serial number which is taken from an 
individual's account. (8 char) 

Remarks which are printed in block 'O' of a 
DD-1348. Consists of expense element appropriate 
to the type of material ordered as per Ref. 6. 

(Valid assignments are 'T', ' W ', ' P , 'R', 'Q , 

and ' L ' . ) 

Routing identifier as described on p. 4-7 of Ref. 1. 
Used only for standard stock requisitions. ( NOZ 
for NSC Oakland, ' NFZ' for NAVPUBFORMCEN , Phil, 

' Z9S ' for NPS RSS ) . 
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SENDTO 



SERVICE 

SF36 



SIGNAL 

SNAME1 

SNAME2 

STATE 1 

STATE2 

SUP ADR 
SUPNO 



Supplier name from SNAME field of record selected 
by user from SUP. dbf. Used in Block A of DD-1348. 

(20 char) 

Last digit of current FY. Entered in block 45 of 
DD-1348. (0-9, char) 

Logical variable = . T. when printing of an SF-36 
is required. An open order requires printing of an 
SF-36 when 

1) Item description exceeds available space on 
DD-1348 T > 22 char). 

2) More than one item is being ordered on same 
open order requisition. 

( 1, logical ) 

Signal Code as described on p. 4-8 of Ref. 1. 

.( D for free publications. A' for all other items). 

Name of the 2nd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. SNAME1 is not input by user, 
but rather read from SNAME field of of the record 
the user has chosen from the SUP. dbf. Value 
assignment is made in the SUP_MEM0. PRG (20 char) 

Name of the 3rd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. SNAME2 is not input by user, 
but rather read from SNAME field of of the record 
the user has chosen from the SUP. dbf. Value 
assignment is made in the SUP_MEM0. PRG (20 char) 

State address of the 2nd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. STATE1 is not input by user, 
but rather read from STATE field of of the record 
the user has chosen from the SUP. dbf. Value 
assignment is made in the SUP_MEMO. PRG (2 char) 

State address of the 3nd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. STATE2 is not input by user, 
but rather read from STATE field of of the record 
the user has chosen from the SUP. dbf. Value 
assignment is made in the SUP_MEM0. PRG (2 char) 

Supplementary address of requisition as described 
on p. 4-8 of Ref. 1. This is also known as the job 
order number. It results from a rather series or 
concatenations performed in GET_CAT. PRG 
(5 char) 

Unique supplier number on which the SUP. dbf is 
indexed. It is assigned at the time a new 
supplier is entered in the SUP. dbf by 
NEW_SUPL. PRG. It is based upon an incrementing of 
the last 4-digits of the supplier's phone number. 

The incrementation continues until an unused 
number is found. (4 char) 
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TOTVAL 



TYPEORDR 

ZIP1 

ZIP2 



Total value of a specific requisition or series of 
items. Value range depends upon specific usage, 
however, in general (.01 - 99,999.99, numeric). 

Type of order as assigned by NEW ORDR. PRG ( 'OPEN', 
t STOCK t , t FORM t , r PUB ? , t RSS$', or ' XPORT ) . 



Zip code of the 2nd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. ZIP1 is not input by user, 
but rather read from ZIP field of of the record 
the user has chosen from the SUP. dbf . Value 
assignment is made in the SUP_MEMO. PRG (5 char) 



Zip code of the 3rd supplier to appear on a 
supplemental memo which accompanies orders 
exceeding $1,000.00. ZIP2 is not input by user, 
but rather read from ZIP field of of the record 
the user has chosen from the SUP. dbf. Value 
assignment is made in the SUP_MEMO. PRG (5 char) 
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APPENDIX E 



SRdb SOURCE CODE LISTINGS 



The following is a listing of the 40 SRdb modules, which 
are written in dBASEIII application language. Each module is 
prefaced by a prologue giving the name, author, purpose, and 
a summary of interaction with other modules. 



BUY1_ITM. PRG 
BUY2_ITM. PRG 
CALC_REO. PRG 
CHG_PRICE. PRG 
CONFIG. PRG 
DISP_REQ. PRG 
DIS1_REQ. PRG 
DIS2_REQ. PRG 
DIS3_REQ. PRG 
FILE_ITM. PRG 
FILE_REQ. PRG 
FORM_ORD. PRG 
GET_CAT. PRG 
GET_DATE. PRG 
GET_PRI. PRG 
GET_RDD. PRG 
IN_P0N0. PRG 
IN_RCVD. PRG 
MAIN. PRG 
NEW_ACNT. PRG 



NEW_0RDR. PRG 
NEW_SUPL. PRG 
OPN_ORDR. PRG 
PRNT_SMO. PRG 
PRTSF36. PRG 
PRT1348a. PRG 
PRT1348o. PRG 
PRT1348X. PRG 
PUB_0RD. PRG 
QUIT. PRG 
REQ_HDR. PRG 
RSS_ORD. PRG 
SEL_ACNT. PRG 
SEL_SUPL. PRG 
SHW_NRI . PRG 
STK_ORDR. PRG 
SUP_MEMO. PRG 
WARNING. PRG 
WARN_PRT. PRG 
WELCOME. PRG 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 
X Module Name: BUY1_ITM.PRG X 
X X 
x Author: Tom Trotter * 
x x 
X Purpose: This module generates a screen for user input of a single X 
X item requisition. It is invoked in situations when only X 
X one item may be purchased per requisition # (e.g. when X 
x making a D0D,GSA, or NPS RSS stock requisition). X 
X x 
X This module is called by: F0RM_0RD.PRG X 
x PUB_.ORD.PRG x 
x STK.ORDR.PRG x 
x x 
X This module calls: N / A X 
X X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ok = f 1 

do while ok <> *Y f 

public descrp; unt,uprce, qunt, dist , stkn um , nomen 1 , nomen 2 
clear 



3 2,24 SAY "ENTER ITEM TO BE ORDERED" 

3 3,24 SAY " " 

stknum = f * 

nomenl = 1 f 

nomen2 = ' f 

dist = 1 f 

3 5,14 SAY "Stock number:” 

3 5,29 GET stknum picture "3!" 

3 7,14 SAY "Short name:" 

3 7,27 GET nomenl 

3 8,27 GET nomen2 

3 10,14 SAY "Distribution COG symbol:" 

3 10,40 GET dist picture "3!" 

read 



descrp = nomenl + " " + stknum 
unt - f ea 1 



uprce = 0.00 
qunt = 0 

3 12,14 SAY "Unit of issue:" 

3 12,30 GET unt picture "3A" 

3 14,14 SAY "Quantity:" 

3 14,25 GET qunt picture "99999" 
if typeordr <> f PUB f 

3 16,14 SAY "Unit price: $" 

3 16,28 GET uprce picture "99999.99" 
endif 



read 



set color to Smscolor 

3 20,21 SAY "Is this order correct (Y/N)?" 
3 20,51 GET ok picture "3!" 
set color to Sccolor 



read 



enddo 



return 



92 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx****xx****xxxxxxxxxxxxx 



X X 
x Module Name: BUY2_ITM.PRG X 
x x 
X Author: Tom Trotter X 
x x 
X Purpose: This module is invoked to accept multiple items per single X 
x requisition as in the case of an open purchase. The user X 
X is limited to only 12 items per requisition due to the x 
X physical size of a SF-36 document. There is currently no X 
x provision for generation of multiple SF-36's per requisition. x 
X Each item is saved to the item.dbf after it is certified to X 
x be correct by the user. The process will stop when the x 
X user leaves the item description blank. X 
X x 
X This module is called by: 0PN_0RDR.PRG X 
x x 
X This module calls: FILE_ITM . PRG X 
X X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



public unt , uprce, totval , qunt , goahead 
to tva 1 = 0.00 
ok = • f 

do while counter < 13 
goahead = .T. 
cl ea r 

3 1,4 SAY '•Item * : " 

3 1,12 SAY counter picture "##" 

3 2,24 SAY "ENTER ITEM TO BE ORDERED" 

3 3,24 SAY " " 

descrp = 1 
descrp2 = 1 
descrp3 = 1 

3 5,1 SAY "Item description:" 

3 6,1 GET descrp 

3 6,41 SAY "< — Only this line is filed" 

3 7,1 GET descrp2 
3 8,1 GET descrp3 

3 8,46 SAY "(Blank ends process.)" 
read 

if descrp = 1 1 .and. counter = 1 

do warning 
endif 

if goahead 

if descrp = 1 1 

return 
endif 
unt - • ea 1 
uprce = 0.00 
qunt - 0 

3 11,14 SAY "Unit of issue:" 

3 11,30 GET unt picture "3A" 

3 13,14 SAY "Unit price: $" 

3 13,28 GET uprce picture "99999.99" 

3 15,14 SAY "Quantity;" 

3 15,25 GET qunt picture "99999" 
read 

set color to Smscolor 

3 20,21 SAY "Is this order correct (Y/N)?" 
3 20,51 GET ok picture "3!" 
set color to &ccolor 
read 

if ok = 1 Y 1 .and. qunt <> 0 

totval = totval + (uprce X qunt) 
do file_itm 
if counter = 1 
select E 
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use ^template 
copy to Sctempord 
use Stempord 
else 

select E 
endif 

append blank 

replace itemno with counter 
replace descrip with M->descrp 
replace descrip2 with M->descrp2 
replace descrip3 with M->descrp3 
replace unit with M->unt 
replace quant with M->qunt 
replace uprice with M->uprce 
counter = counter + 1 
endif 

if ok = f Y f .and. qunt = 0 

3) 22,15 SAY "Sorry, but ordering 1 0 f quantity makes no sense.” 
set color to Smscolor 
wait &wmsg 
set color to Sccolor 
endif 
endif 
enddo 
return 
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X X 

x Module Name: CALC_REQ.PRG x 
x x 
x Authar: Tom Trotter x 
x x 
X Purpose: This module calculates and assigns the appropriate X 
X requisition number (reqno) for each new requisition. X 
x An 8-digit reqno is comprised of a 4-digit julian date, x 
X and the last 4 digits will be the next serial number to x 
X be used for a specific account. The only exception is X 
x when the requisition is for transportation expenses, in x 
X which case the user is prompted to phone the NPS x 
x Comptroller to have the last 4 digits assigned. x 
x x 
x This module is called by: NEH_ORDR.PRG X 
x x 
X This module calls: N / A x 
X X 
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public reqno 

reqno = str(year( today >-1980 , 1 ) 
if year(today) > 1989 

reqno = str (yea rC today ) -1990 , 1 ) 
endif 

reqno = reqno + substr(str( julian+1000, 4) , 2) 
if typeordr = 'XPORT* 
ok = ' 1 
ans - 2 

do while ok <> *Y f 
set scoreboard on 
clear 

3 6,20 SAY n ENTER TRANSPORTATION SERIAL NUMBER" 

3 7,20 SAY " 11 

3 9,16 SAY "Transportation requests require issuance of a special" 
3 10,16 SAY "serial number directly from the comptroller. Phone" 

3 11,16 SAY "the NPS comptroller at x2257 to obtain." 

3 13,24 SAY "Select an action: " 

3 14,24 SAY " " 

3 15,20 SAY "1. Ready to enter serial number" 

3 16,20 SAY "2. Abort to main menu" 

3 13,43 GET ans picture range 1,2 

read 

set scoreboard off 
do case 

case ans = 1 

xportno = 1 1 

3 13,0 clear 

3 13,24 SAY "Enter Serial 

3 13,40 get xportno picture "XXXX" 

read 

set color to Smscolor 
3 15,24 SAY "Correct (Y/N)?" 
set color to Sccolor 
3 15,39 GET ok picture "3!" 
read 

reqno = reqno + xportno 
case ans - 2 

return to master 
endcase 
enddo 
else 

public checker 
checker = A->lastused 
check = val(checker) + 1 
if check > val (A->hiserno) 
checker = A->loserno 
else 
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checker = str(check,4) 
endif 

reqno = reqno + checker 
endif 
return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 
X Module Name: CHG_PRICE . PRG X 
X X 
X Author: Tom Trotter x 
X 36 
x Purpose: This module allows the user to change the price of an item X 
x if a price revision is received. It is common for items to X 
X be received at different prices than those used at the time x 
X of ordering. X 
X 36 
X This module is called by: MAIN. PRG X 
x x 
X This module calls: N / A X 
X X 
X X 
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a ns = ' 1 

clear 

3 5,29 SAY "CHANGE ITEM PRICE" 

3 6,29 SAY "—7 " 

3 8,14 SAY "This module is used when the item's final price" 

3 9,14 SAY "differs from that on the orginal requisition. You" 

3 10,14 SAY "will be shown all items associated with a specific" 
3 11,14 SAY "requisition # or purchase order #. Upon displaying" 
3 12,14 SAY "each item, you will be given the opportunity to" 

3 13,14 SAY "change the item's unit price or scroll to the next" 
3 14,14 SAY "item." 
set color to Smscolor 
3 17,28 SAY "Continue (Y/N)?" 

3 17,45 GET ans 

set color to Sccolor 

read 

if upper(ans) <> 'Y' 
return 
endi f 

do while .T. 
ansi = 3 

set scoreboard on 
clear 

3 8,20 SAY "Preparing to change an item price" 

3 16,32 SAY "Select: " 

3 16,41 GET ansi picture "#" range 1,3 

3 17,22 SAY " " 

3 18,22 SAY "C 1. Show by requisition f ] " 

3 19,22 SAY "C 2. Show by purchase order # ]" 

3 20,22 SAY "C 3. Return to main menu ]" 

3 21,22 SAY " " 

read 

set scoreboard off 
do case 

case ansi = 1 

kind = "Requisition #" 

select D 

use 

use Sitem index &reqno_ i 
field = "D->reqno" 
case ansi = 2 

kind = "Purchase Order #" 

select D 

use 

use &item index &pono_ i 
field = "D->pono" 
case ansi = 3 
return 
endcase 
ans 2 = ' ' 

do while ans2 <> 'Y' 
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key = 1 1 

clear 

3 9,15 SAY "Enter" 

3 9,22 SAY kind 
3 9,38 SAY ":" 

3 9,41 GET key picture "########" 

3 11,15 SAY "Note - Blank ends process" 
read 

if key = 1 1 

return to master 
endif 

set color to Smscolor 
3 14,28 SAY "Correct (Y/N)?" 

3 14,44 GET ans2 picture "3!" 
set color to Sccolor 
read 
enddo 
find &key 

if eof() .or. bof ( ) 

3 14,0 clear 

3 14,23 SAY kind 

3 14,39 SAY "not in file." 

3 16,11 SAY "Please double check the" 

3 16,35 SAY kind 

3 16,53 SAY "and try again." 

set color to Smscolor 
wait Swmsg 

set color to Sccolor 
else 

do while Sfield = key .and. .not. eof ( ) 
ans3 = 1 N 1 
clear 

3 7,11 SAY "Requisition 
3 7,27 SAY reqno 
3 9,11 SAY "Purchase Ord 
3 9,28 SAY pono 
3 11,11 SAY "Item:" 

3 11,18 SAY descrip 
3 13,11 SAY "Quantity." 

3 13,22 SAY quant 
3 13,39 SAY "Unit Price: $" 

3 13,53 SAY uprice 
set color to Smscolor 

3 16,21 SAY "Change unit price (Y/N)?" 

3 16,48 GET ans3 
set color to Sccolor 
read 

if upper(ans3) = 'Y 1 
newprice = uprice 

3 13,53 GET newprice picture "*####.##" 
read 

if newprice <> 0 
ans4 = 1 1 

3 16,0 clear 
set color to Smscolor 
3 16,25 SAY "Correct (Y/N)?" 

3 16,39 GET ans4 

set color to Sccolor 
read 

if upper(ans4) = 'Y 1 

replace uprice with newprice 
endi f 
else 

ans4 = 'N 1 

set color to Smscolor 
3 21,21 SAY "Is item now FREE?" 

3 21,46 GET ans4 

set color to Sccolor 
read 

if upper(ans4) = f Y' 
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replace uprice with newprice 
endif 
endif 
skip -1 
endif 
skip 
enddo 
endi f 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 
x Module Name; CONFIG. PRG X 
X X 
X Author; Tom Trotter X 
x x 
x Purpose: After displaying an appropriate warning banner; this module X 
X displays the current program system configuration and allows X 
X the user to change it. Changes are saved to a file of X 
X memory variables ( conf ig . var ) . X 
X x 
X This module is called by; MAIN. PRG X 
X X 
X This module calls; N / A x 
X X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ans = T N ' 

3 4,32 SAY "CONFIGURATION” 

3 5,32 SAY " " 

3 7,16 SAY "This program has been preconfigured for your use" 
3 8,16 SAY "and should not require reconf igura tion unless” 

3 9,16 SAY "transported to another system or department.” 

3 11,16 SAY "HARNING - Configuration changes should only be” 

3 12,26 SAY "made by personnel familiar with dBASE III.” 

set color to GB+/ , W+/ 

3 15,23 SAY "Change Configuration (Y/N)?" 

3 15,52 GET ans 

set color to GR+/B,W+/ , B+ 

read 

if upper(ans) <> f Y f 
return 
endif 
clear 



restore from config.var 
c_sdrv = substrC c_sdrv , 1 , 1 ) 
c_adrv = substrC c_adrv , 1 , 1 ) 

3 2,17 SAY "This program is configured as follows: 
3 6,17 SAY "Department;” 

3 6,30 SAY c_de P t 
3 8,17 SAY "Bldg:" 

3 8,24 SAY c_bldg 
3 10,17 SAY "Room : " 

3 10,24 SAY c^room 
3 12,17 SAY "Telephone:" 

3 12,29 SAY c_phone 

3 14,17 SAY "Database disk locations: " 

3 15,37 SAY "Suppliers: ' 1 drive” 

3 15,49 SAY c_sdrv 

3 17,37 SAY "Accounts: 1 ' drive” 

3 17,49 SAY c_adrv 

3 19,17 SAY "Color Monitor (T/F):” 

3 19,38 SAY c_clrmon 



ans = f 1 

set color to R/ , R/W 

3 21,17 SAY "Is this the correct configuration? (Y/N) ” 

3 21,60 GET ans 

set color to GR+/B, W+/ , B+ 

read 

if upper(ans) = "N” 
ok = .F. 

do while .not. ok 
3 6,30 GET c_dept 
3 8,24 GET c_bldg 
3 10,24 GET c_room 
3 12,29 GET c.phone 
3 15,49 GET c_sdrv 
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1 B 1 .or 



read 

do while .not. (upper(c_sdrv) = f A* .or. upper ( c_sdrv ) = 
upper(c_sdrv) = 'C* .or. upper ( c_sdrv ) = *0*) 

3 15,49 GET c.sdrv 
read 
enddo 

3 17 , 49 GET c_adrv 
read 

do while .not. (upper(c_adrv) = *A f .or. upper ( c_adrv ) = f B f .or 
upper(c_adrv) = 'C* .or. upper ( c_adrv ) = ’D 1 ) 

3 17 , 49 GET c_adrv 
read 
enddo 

3 19,38 GET c_clrmon 
3 21,60 GET ans 
read 

if upper(ans) = f Y f 
ok = .T. 

c_sdrv = (c_sdrv) + 1 : 1 
c_a d r v = ( c_a d r v ) + 1 : 1 
save to config.var all like c_X 
endif 
enddo 
endi f 
return 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



* * 

* Module Name: DISP_REQ.PRG * 

* * 

* Author: Tom Trotter * 

* * 

* Purpose: This module presents the user with menus for use in the * 

* selection of requisitions for display. The user is given * 

* the option of screen or printer output. * 

* * 

* This module is called by: MAIN.PRG * 

* * 

* This module calls: DIS1_REQ * 

* DIS2_REQ * 

* DI$3_REQ * 

* * 



****************************************************************************** 



do while .T. 
ans = ' ' 

clear 

3 7,28 SAY "DISPLAY REQUISITION" 

3 8,28 SAY " 7 7 " 

3 10,15 SAY "This program will display one or more requisitions" 

3 11,15 SAY "subject to user selection criteria. The list may" 

3 12,15 SAY "be sent to the screen or printer at the user's" 

3 13,15 SAY "option." 

set color to Smscolor 
3 16,27 SAY "Continue (Y/N)?" 

3 16 , 44 GET ans 

set color to &ccolor 

read 

if upper(ans) <> 'Y' 
return 
endif 
pick = 1 
clear 

3 2,27 SAY "DISPLAY REQUISITIONS" 
set color to Smscolor 
3 5,29 SAY "Selection: » 

set color to Sccolor 

3 5,41 GET pick picture "#” range 0,3 

3 6,11 SAY "==========================================================« 

3 7,11 SAY "/ 0 . Return to main menu /" 

3 8,11 SAY "/ 1. Display single requisition /" 

3 9,11 SAY "/ 2. Display requisitions from specific account /" 

3 10,11 SAY "/ 3. Display requisitions subject to account # 8 date /" 

3 11,11 SAY "==========================================================" 

read 

if pick = 0 
return 
endif 
outpt = 1 

set color to Smscolor 
3 14,27 SAY "Select Display: " 

set color to Sccolor 

3 14,44 GET outpt picture range 1,2 

3 15,27 SAY »==================» 

3 16,27 SAY "/ 1. Screen /" 

3 17,27 SAY "/ 2. Printer /" 

3 18,27 SAY »==================" 

read 

public prtout 
if outpt = 1 
prtout = .F. 
else 

prtout = .T. 
endif 
do case 
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case pick = 1 
do disl_req 
case pick = 2 
do dis2_req 
case pick = 3 
do dis3_ req 
endcase 
enddo 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 
x Module Name: DIS1_REQ.PRG x 
x x 
X Author: Tom Trotter X 
x x 
X Purpose: This module outputs the contents of one requisition as X 
x selected by the user input of a requisition #. x 
x x 
X This module is called by: DISP_REQ.PRG X 
x x 
X This module calls: REQ_HDR.PRG x 
x WARN_PRT . PRG X 
x x 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



do while .T. 
clear 

key = ■ 1 

3 9,25 SAY "Enter Requisition 
3 9,47 GET key picture "########" 
a) 11,28 SAY "(Blank ends process.)" 
read 

if key = f 1 
return 
endif 

counter = 0 
marker = 9 
endi f 
select C 
use 

use &req index &reqno_r 
find &key 
if eof ( ) 

3 14,28 SAY "REQUISITION NOT FOUND" 

3 16,18 SAY "Double check the requisition # and try again." 
else 

totcnt = 0 
value = 0.00 
totval = 0.00 
if prtout 
.do warn_prt 
clear 

3 10,31 SAY "LOAD PRINTER" 
a) 12 37 SAY "8" 

3 14^25 SAY "PRESS ANY KEY TO CONTINUE" 
set device to print 
3 1,0 SAY ’ 1 
wait 1 ' 
endif 

key2 - C->accno 

select A 

use 

use Saccnt index &accno_a 

find &key2 

key3 = C->supno 

select B 

use 

use &sup index &supno_s 

find &key3 

do req_hdr 

select D 

use 

use &item index &reqno_ i 
find &key 

do while D->reqno = C->reqno .and. .not. eof ( ) 
counter = counter + 1 
marker = marker + 1 
totcnt = totcnt + D->quant 
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value = D->quant * D->uprice 
totval = totval + value 
3 marker^ 1 SAY counter picture 
3 marker, 5 SAY D->descrip 
3 marker, 46 SAY 

3 marker, 47 SAY D->uprice picture "##,###.##" 

3 marker,57 SAY D->quant picture "#####" 

3 marker, 66 SAY D->rcvd 

3 marker,70 SAY D->pono 

if marker > 21 .and. .not. prtout 
marker - 9 
wait Swmsg 
3 9,0 clear 
endif 
skip 
enddo 

if counter <> 0 

marker = marker + 3 
3 marker, 15 SAY "Total items:" 

.3 marker, 28 SAY totcnt picture "######" 

3 ma rker , 42 SAY "Total Value: $" 

3 marker, 57 SAY totval picture 
endif 
if prtout 

3 marker , 7 0 SAY chr(13) 
set device to screen 
else 

set color to Smscolor 
wait Swmsg 

set color to 8 ccolor 
endif 
endif 
enddo 
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X X 
X Module Name: DIS2_REQ X 
X X 
X Author: Tom Trotter X 
X X 
* Purpose: This module displays all requisitions from a single account X 
X as specified by the user. The SEL_ACCNT module is used to X 
X select an account, and this module will then skip through X 
x the req.dbf and item.dbf until all requisitions for the X 
X account have been displayed. X 
X X 
X This module is called by: DISP_ REQ.PRG X 
X X 
X This module calls: SEL_ACNT.PRG X 
X REQ_HDR . PRG X 
X WARN_PRT.PRG X 
x x 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



do sel_acnt 
key = A->accno 
select C 
use 

use &req index &accno_r 
find &key 
if eof() 
clear 

3 15,18 SAY "No Requisitions on 
3 17,20 SAY "Account Name:” 

3 17 , 34 SAY A->aname 
3 19,20 SAY "Account Number:” 

3 19,36 SAY A->accno 



file for 



else 
clear 
if prtout 

do warn_prt 
clear 

3 10,31 SAY "LOAD PRINTER" 

3 12,37 SAY ”8” 

3 1 A , 25 SAY "PRESS ANY KEY TO CONTINUE” 
set device to print 
3 1,0 SAY ' 1 
wait 
endif 

do while C->accno = A~>accno .and. .not. eof C ) 
key2 = C->supno 
select B 
use 

use &sup index &supno_s 

find 8key2 

counter = 0 

marker = 9 

totcnt = 0 

value = 0.00 

totval =0.00 

do req_hdr 

key3 = C->reqno 

select D 

use 

use &item index &reqno_i 

find 8key3 

endif 

do while D->reqno = C->reqno .and. .not. eof() 
counter = counter + 1 
marker = marker + 1 
totcnt = totcnt + quant 
value = D->quant X D->uprice 
totval = totval + value 
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3 marker, 1 SAY counter picture "###" 

3 marker, 5 SAY D->descrip 
3 marker , 46 SAY "$" 

3 marker,47 SAY D->uprice 
3 marker,57 SAY D->quant 
3 marker, 66 SAY D->rcvd 
3 marker,70 SAY D->pono 
if marker > 21 .and. .not. prtout 
marker = 9 

set color to Smscolor 
wait Swmsg 
set color to Sccolor 
3 9,0 clear 
endif 
skip 
enddo 

if counter <> 0 

marker = marker + 3 
3 marker,15 SAY "Total items:" 

3 marker,28 SAY totcnt picture "#####" 
3 marker,42 SAY "Total value: $" 

3 marker, 57 SAY totval picture 
endif 
select C 
skip 

if .not. prtout 

set color to Smscolor 
wait Swmsg 

set color to Sccolor 
endif 
enddo 
if prtout 

3 marker, 70 SAY chr(13) 
set device to screen 
endif 
endif 
return 
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X X 

x Module Name: DIS3_REQ.PRG X 

x x 

x Author: Tom Trotter X 

X X 

x Purpose: This module displays all requisitions from a user selected X 

x account, subject to a screen on the origin date of the X 

X requisition. Output may be directed to the screen or the X 

x printer at the user’s option. x 

X X 

X This module is called by: DISP_REQ.PRG x 

X x 

x This module calls: SEL_ACNT.PRG x 

x REQ_HDR . PRG x 

x WARN_PRT . PRG x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

hidate = today 

lodate = CTOD("10/l/85") 



clear 

3 6,26 SAY " " 

a 8,26 SAY "Find Requisitions Created" 
a 10, 34 SAY "Between" 
a 12,26 GET lodate 
a 12,36 SAY "and" 
a 12, A3 GET hidate 

a 13,26 SAY "mm/dd/yy mm/dd/yy" 

read 

do sel_acnt 
counter = 0 
marker = 9 
key = A->accno 
select C 
use 

use &req index &accno_r 
find &key 
if eof ( ) 
clear 

a 8,25 SAY "No Requisitions Are on File For" 
a> 10,29 SAY "Account Name:" 
a 10, AA SAY A->aname 
a 12,29 SAY "Account Number:" 
a 12, A6 SAY A->accno 
a 1 A , 36 SAY "Between" 
a 16,27 SAY lodate 
a 16,38 SAY "and" 
a 16, A6 SAY hidate 
else 
clear 

if prtout 

do warn_prt 

a 10^31 SAY "LOAD PRINTER" 
a 12 37 SAY "8" 

a 1A*25 SAY "PRESS ANY KEY TO CONTINUE" 
set device to print 
a 1,0 SAY 1 1 
wait 11 
endif 

do while C->accno = A->accno .and. .not. eof() 
if C->rdate >= lodate .and. C->rdate <= hidate 
key2 = C->supno 
select B 
use 

use &sup index 8supno_s 
find 8key2 
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totcnt = 0 
value = 0.00 
totval = 0.00 
counter = 0 
marker = 9 
do req_hdr 
key3 = C->reqno 
select D 
use 

use Sitem index &reqno_i 
find Skey3 

do while D->reqno = C->reqno .and. .not. eof ( ) 
counter = counter + 1 
marker = marker + 1 

3 marker, 1 SAY counter picture "###" 

3 marker;5 SAY D->descrip 
3 marker, 46 SAY 
3 marker,47 SAY D->uprice 
3 marker,57 SAY D->quant 
3 marker,66 SAY D->rcvd 
3 marker,70 SAY D->pono 
totcnt = D->quant + totcnt 
value = D->quant * D->uprice 
totval = value + totval 
if marker > 21 .and. .not. prtout 
marker - 9 

set color to Smscolor 
wait &wmsg 
set color to Sccolor 
3 9,0 clear 
endif 
skip 
enddo 

if counter <> 0 

marker = marker + 3 
3 marker,15 SAY "Total Items; " 

3 marker, 28 SAY totcnt picture "#####" 

3 marker,45 SAY "Total Value: $" 

3 marker,60 SAY totval picture "#,###, ### . ##" 
set color to Smscolor 
wait Swmsg 

set color to Sccolor 
endi f 
endif 
select C 
ski p 
enddo 
if prtout 

3 marker, 70 SAY chr(13) 
set device to screen 
endif 

if counter = 0 
clear 

3 8,25 SAY "No Requisitions Are on File For" 

3 10,29 SAY "Account Name:" 

3 10, 44 SAY A->aname 

3 12,29 SAY "Account Number:" 

3 12,46 SAY A->accno 
3 14,36 SAY "Between" 

3 16,27 SAY lodate 
3 16,38 SAY "and" 

3 16,46 SAY hidate 
set color to Smscolor 
wait Swmsg 

set color to Sccolor 
endif 
endif 
return 
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X X 
x Module Name: FILE_ITM.PRG * 
x x 
X Author: Tom Trotter X 
X X 
X Purpose: This module is used to append a blank record to the item.dbf X 
x and fill in several fields from current memory variables. X 
X X 
x This module is called by: BUY2_ITM.PRG x 
x FQRM_QRD.PRG x 
x PUB_QRD . PRG x 
x STK_0RDR . PRG x 
x x 
X This module calls: N / A x 
x x 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



select D 
use 

use Sitem index &reqno_i , &pono_i 
append blank 

replace descrip with M->descrp 
replace unit with M~>unt 
replace quant with M->qunt 
replace uprice with M->uprce 
replace reqno with M->reqno 
use 

return 



xxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*xxxxxxx*xxxx 

X X 

* Module Name: FILE_REQ . PRG * 

X X 

X Author: Tom Trotter X 

X X 

X Purpose: This module is used to append a blank record to the req.dbf X 

X and fill in several fields from current memory variables. X 

X X 

x This module is called by: XP0R_0RD.PRG x 

x F0RM_0RD.PRG X 

x PUB_ORD.PRG x 

* STK_0RDR . PRG * 

x 0PN_0RDR . PRG * 

x RSS_0RD . PRG X 

x x 

X This module calls: N / A X 

X X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

select C 
use 

use &req index &reqno_r ; Saccno_r 
append blank 

replace reqno with M->reqno 
replace accno with M->accno 
replace pri_code with M->pri 
replace supno with M->supno 
replace rdate with M->today 
if typeordr <> 'XPORT 1 
select A 

replace lastused with M->checker 
endif 
return 
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X X 
X Module Name: F0RM_0RD . PRG x 
x x 
X Author: Tom Trotter X 
x x 
X Purpose: This module coordinates the process of ordering forms x 
X from NSC Oakland. x 
x x 
X This module is called by: NEW_ORDR.PRG x 
X X 

x This module calls: GET_RDD.PRG x 
x GET_CAT . PRG * 
x GET_PRI . PRG x 
x BUY1_ITM . PRG x 
x FILE_REQ . PRG x 
x FILE_ITM.PRG x 
x x 
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ans = ’ ’ 

clear 

3 8,33 SAY "FORMS ORDER" 

3 9,33 SAY " " 

a 11,13 SAY "This program prepares the documents required to order" 
a 12,13 SAY "forms from NSC OAKLAND. If you desire to order forms" 
a 13,13 SAY "from NAVPUBFORMCEN Philadelphia, do not continue." 
set color to Smscolor 
a 16,30 SAY "Continue (Y/N)?" 
set color to Sccolor 
a 16 , 47 GET ans 
read 

if upper(ans) <> *Y' 
return 
endif 

public sendto , supno , route 

sendto = ’(00228) NSC OAKLAND, CA ’ 

supno = ’1111’ 

route = ’NOZ’ 

do get_rdd 

do get_pri 

do get_cat 

do buyl_ itm 

public docid, signal , fund 



docid = ’AOD’ 
signal = ’A’ 
if uprce = 0 
fund = ’ Y6 ' 
else 

fund = ' 2S ’ 
endif 



do prtl398a 
do file_req 
do file_itm 
return to master 
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Module Name: GET_CAT . PRG 

Author: Tom Trotter 

Purpose: This module presents the user with a menu from which to 

select the appropriate category of items to be purchased. 
Other memory variable assignments are made based upon the 
category selected by the user. The user is also queried 
concerning the recurring nature of the demand. 



This module is called by: 



This module calls: N / A 



F0RM_0RD.PRG 
0PN_0RDR.PRG 
PUB_0RD . PRG 
STK_.ORDR.PRG 
XPOR ORD.PRG 



X 

x 

x 

x 

x 

x 

x 

x 

x 

x 

x 

x 

X 

X 

X 

X 

X 

X 

X 
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public supadr, rmko 
ans = * ' 

if typeordr = 'OPEN* .or. typeordr = 'STOCK' 
do while ans <> 'Y* 
ansi = 1 

a 0?20 SAY "SELECT CATEGORY OF ITEMS TO BE PURCHASED" 
a 1/20 SAY " " 

a 3/11 SAY "1. CONSUMABLE SUPPLIES (e.g. subscriptions to periodicals" 
a 4/17 SAY "cables/ floppy disks/ misc items for micro computers/" 
a 5/17 SAY "and other items having a useful life of < 1 year)." 

3 7/11 SAY "2. MINOR PROPERTY (i.e. unit value > $ 1000. and a useful" 
a 8/17 SAY "life of at least 2 years)." 

a 10/11 SAY "3. PLANT PROPERTY Ci.e. unit value > $ 1000.)" 
a 12/11 SAY "4. MAINTENANCE FOR MINOR PROPERTY" 

a 14/11 SAY "5. MAINTENANCE FOR PLANT PROPERTY" 

a 16/11 SAY "6. OTHER PURCHASED SERVICES" 

a 18/6 SAY "Note - All items on single requisition must be of same " 
a 18/61 SAY "category" 

a 19/13 SAY "(e.g. cannot order hardware 8 software on the same order) . 
a 21/23 SAY "Selection:" 
a 21/35 GET ansi picture range 1/6 

read 

set color to Smscolor 
3 23/21 SAY "Correct (Y/N)?" 

a 23/37 GET ans picture "3!" 

set color to Sccolor 



read 
enddo 
endi f 

if typeordr 
ansi = 1 
endi f 

if typeordr 
ansi - 7 
endif 
do case 



= 'FORM* .or. typeordr = 'PUB' .or. typeordr = 'RSSS 1 



= ' XPORT ' 



case ansi 
rmko = 
supadr 


= 1 

•T' 

= 'T' 


+ 


trimC A->accno ) 


+ 


o 

o 


case ansi 
rmko = 
supadr 


= 2 

•w* 

= 'W' 


+ 


trim( A->accno ) 


+ 


'MA' 


case ansi 
rmko = 
supadr 


= 3 

•W' 

= 'W* 


+ 


trimC A->accno ) 


+ 


'PA* 


case ansi 


= 4 
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rmko = 'P f 



supadr = 
case ansi = 
rmko = f P 


tpt 

5 

t 


+ 


trimC A->accno ) 


+ 


1 MM 1 


supadr = 
case ansi = 
rmko = f Q 


f P l 

6 

t 


+ 


trimC A->accno ) 


+ 


1 PM 1 


supadr - 
case ansi = 
rmko = 1 L 


1 Q f 

7 

f 


+ 


trimC A~>accno ) 


+ 


1 QS 1 


supadr = 
endcase 


1 L 1 


+ 


t rim( A->accno ) 


+ 


•OO 1 



if A->research 

supadr = A->accno 
endif 

public demand 
if typeordr = f RSS$ f 
demand = f R f 
else 

ans = 1 1 

ans2 = 1 1 

do while ans2 <> 'Y f 
clear 

3 8,29 SAY "SPECIFY DEMAND TYPE” 

3 9,29 SAY M 11 

3 11,18 SAY "Is there a recurring demand for the” 

3 12,18 SAY "items/services on this requisition (Y/N)?” 

3 12,62 GET ans picture ”3!” 

read 

set color to Smscolor 
3 15,30 SAY "Correct (Y/N)?” 

3 15,46 GET ans2 picture ”3!" 

set color to Sccolor 

read 

if ans = 1 Y 1 
demand = 1 R f 
else 

demand = ’N* 
endif 
enddo 
endif 
return 
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X X 
X Module Name: GET_DATE.PRG * 
X X 
X Author: Tom Trotter X 
X X 
x Purpose: Since dBASE III does not allow one to change the system * 
X date from within dBASE, this module allows the user to £ 

* update the memory var (TODAY) if it is in error. It also * 
X will allow generation of documents dated other than the * 
x current date. After the desired date is confirmed by the * 
X user, a julian date is calculated. Leap years are accounted * 

* for in the julian date calculation. * 

x x 

* This module is called by: MAIN.PRG * 
x x 
X This module calls: N / A * 
X X 
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clear memory 
today = date( ) 
do while .T. 
ans = * 1 

clear 

9 5,28 SAY "CONFIRM TODAY'S DATE" 

9 7,33 SAY today 
9 9,31 SAY "(Y/N)?" 

9 9,39 GET ans 
read 

if upper(ans) <> *Y' 
clear 

9 5,28- SAY "ENTER TODAY’S DATE" 

9 7,33 GET today picture "9D" 

9 8,33 SAY "MM/DD/YR" 

9 15,10 SAY "Note - Leading zeros are required for single digit values." 
read 
else 

mon = month(today) 
do case 



case mon 


= 


1 


julian 


— 


0 


case mon 


— 


2 


julian 


= 


31 


case mon 


= 


3 


julian 


= 


59 


case mon 




A 


julian 


= 


90 


case mon 


= 


5 


julian 




120 


case mon 


~ 


6 


julian 


= 


150 


case mon 


= 


7 


j ulian 


= 


181 


case mon 




8 


julian 


= 


212 


case mon 


— 


9 


julian 


= 


2A3 


case mon 


= 


10 


julian 


= 


273 


case mon 


= 


11 


julian 




30 A 


case mon 


= 


12 


julian 




33A 



endcase 

julian = julian + day(today) 

if int(year( today )/A ) X A = year(today) .and. month(today) > 2 
julian = julian + 1 
endif 
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save to date.var all except ans 
return 
endif 
enddo 
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Module Name: GET_PRI.PRG 

Author: Tom Trotter 
Purpose : 



This module presents the user with a menu for the selection 
of an order priority. If the user selects pri "A" he is 
warned that it requires approval by the NPS superintendent. 
Other memory variables are assigned values for document 
generation based upon the user’s selection. 



This module is called by: 



This module calls: N / A 



FORM.ORD.PRG 
0PN_0RDR.PRG 
PUB_0RD . PRG 
STK.ORDR.PRG 
XPOR ORD.PRG 



x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 
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public pri 
ok = ’ ’ 
okl = ’ ’ 

pri = f C f 
do while .T. 

a 4?30 SAY "ORDER PRIORITY" 

3 6,12 SAY "A ~ Requirement is immediate and without the material" 

3 7,16 SAY "required, the activity is unable to perform one" 
a 8,16 SAY "or more of its primary missions." 
a 9,17 SAY "(Note: Requires NPS Superintendent approval)" 
a 11,12 SAY "B - Requirement is immediate or it is known that such" 
a 12,16 SAY "a requirement will occur in the immeidate future." 
a 14,12 SAY "C - Routine requirement." 

3 17,19 SAY "Select appropriate order priority:" 

a 17,55 GET pri picture "3!" 

read 

set color to Smscolor 
3 19,30 SAY "Correct ( Y/N ) ? " 
a 19,46 GET ok picture "3!" 
set color to Sccolor 
rea d 

ri <> ’A’ 



if ok = ’Y’ 


.and 


okl = ’ Y ’ 




endif 




if ok = ’Y T 


.and 



pri = T A* 

clear 

a 7,34 SAY "NOTICE" 
a 8,31 SAY " " 

3 10,10 SAY "A priority code of °A’ requires NPS Superintendent approval." 
set color to Smscolor 

a 14,18 SAY "Have you obtained approval (Y/N)?" 

3 14,53 GET okl picture "3!" 
set color to Sccolor 
read 
endif 

if ok = ’Y’ .and. okl = f Y f 
public ms_code, priori ty 
good = .F. 
do case 

case pri = ’A’ 
ms_code = f W’ 
priority = ’08’ 
good = .T. 



ms_ code : 
priori ty 



: tyi 

= ’ 10 ’ 
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good = .T. 
case pri = f C f 
ms^code = , T* 
priority = 'IS* 
good = .T. 
endcase 
if good 
return 
endif 
endif 
enddo 
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Module Name: GET_RDD . PRG 

Author: Tom Trotter 

Purpose: This module queries the user for a "required delivery date. 

It will accept RDD value's from 1 to 366. If the user opts 
to specify an RDD/ RDD_YES will be given 
the memory variable RDD will be assigned 



a value of . T . , and 
a value ( 1-366 ) . 



This module is called by: 



This module calls: N / A 



F0RM_0RD . PRG 
0PN_0RDR . PRG 
PUB_0RD . PRG 
STK_0RDR . PRG 
XPOR ORD.PRG 



x 

x 

x 

x 

x 

x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



public rdd_yes, rdd 
rdd = 1 
ans = 1 1 
do while .T. 
rdd_yes = . F . 
clear 

3 6,24 SAY "REQUIRED DELIVERY DATE (RDD)" 

3 8,16 SAY "This is an optional 3 digit Julian date when the" 
3 9,16 SAY "material or service is required. It is used to" 

3 10,16 SAY "assist in the placement of the order." 
set color to Smscolor 

3 12,22 SAY "Desire to specify an RDD (Y/N):" 

3 12,55 GET ans 

set color to Sccolor 

read 

if upper(ans) = *Y f 
set scoreboard on 
rdd_yes = . T . 
ok = 1 1 

3 14,30 SAY "Enter RDD:" 

3 14,42 GET rdd picture "tit" range 1,366 
read 

set scoreboard off 
3 14,42 SAY rdd picture "###" 
set color to Smscolor 
3 16,30 SAY "RDD Correct (Y/N):" 

3 16,49 GET ok 

set color to Sccolor 

read 

if upper(ok) = , Y f 
return 
endif 
else 

return 
endi f 
enddo 



119. 



i 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 
X Module Name: IN_P0N0.PRG X 
X X 
x Author: Tom Trotter X 
X X 
X Purpose: This module permits the user to write a purchase order X 
x number into the PONO field of the ITEM.dbf. This cannot x 
X be done at the time the requisition is originated, X 
X because the PONO is not then known* X 
X X 
X This module is called by: MAIN.PRG x 
X X 
X This module calls: N / A X 
X X 
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ans = 1 Y f 
clear 

3 6,23 SAY "INPUT PURCHASE ORDER NUMBER (PO#)" 

3 7,23 SAY " " 

3 9,11 SAY "Once a PO# is received from supply, this program permits” 

3 10,11 SAY "entry of the PO# for each item ordered. Since not all” 

3 11,11 SAY "items on the original requisition may have been ordered” 

3 12,11 SAY "by supply on the same purchase order, you are requested” 

3 13,11 SAY "to separately confirm each item on the purchase order." 
set color to Smscolor 
3 16,30 SAY "Continue (Y/N)?" 

3 16,97 GET ans 

set color to Sccolor 

read 

if upper(ans) <> f Y f 
return 
endi f 
ans = f ' 
do while .T. 
clear 

key = 1 f 

3 1,33 SAY "ENTER DATA" 

3 2,33 SAY " " 

3 3,22 SAY "Requisition # :" 

3 3,39 GET key picture "3########" 

3 9,26 SAY "(Blank ends process)" 
read 

if key = f * 
return 
endif 

tempid = 1 1 

3 6,22 SAY "Purchase Order #:" 

3 6,91 GET tempid picture "3########" 
set color to Smscolor 
3 8,27 SAY "Correct (Y/N)?" 

3 8,93 GET ans 

set color to Sccolor 

read 

if upper(ans) = f Y* 
select D 
use 

use &item index &reqno_i , &pono_i 
find &key 

if eof ( ) . or . bof ( ) 

3 8,0 clear 

3 10,29 SAY "REQUISITION NOT IN FILE" 

3 12,19 SAY "Please double check the requisition # and try again." 
set color to Smscolor 
wait &wmsg 

set color to &ccolor 
else 

do while D->reqno = key .and. .not. eof ( ) 
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ans2 = f 1 
clear 

3 7,18 SAY "Requisition $:" 

3 7,34 SAY D->reqno 
3 9,18 SAY "Item:" 

3 9,25 SAY D->descrip 
3 11,18 SAY "Quantity:" 

3 11,29 SAY D->quant 
3 13,18 SAY "Unit Price:" 

3 13,31 SAY D->uprice 
set color to Smscolor 

3 18,14 SAY "Is this item on purchase f" 
3 18,42 SAY tempid 
3 18,53 SAY "(Y/N)?" 

3 18,61 GET ans2 
set color to Sccolor 
read 

if upper(ans2) = *Y f 

replace pono with M->tempid 
endi f 
skip 
enddo 
endi f 
endif 
enddo 
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X X 
X Module Name: IN_RCVD.PRG x 
X X 
x Author: Tom Trotter X 
x x 
x Purpose: This module permits notation of receipt of items in the X 
X RCVD field in the ITEM.dbf. The item may be X 
X specified by requisition t (REQNO) or purchase order $ X 
x (PONO) x 

X X 
X This module is called by: MAIN.PRG X 
x x 
X This module calls: N / A X 
X X 
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ans = 1 Y " 
clear 

3 3/30 SAY "INPUT RECEIPT STATUS" 

3 A, 30 SAY " " 

3 6/16 SAY "You will be given the opportunity to indicate if" 

3 7/16 SAY "specific items/ currently not marked as received/" 
3 8,16 SAY "have now been received. Items reviewed will be" 

3 9,16 SAY "grouped by requisition number or purchase order" 

3 10,16 SAY "number at your option." 
set color to Smscolor 
3 12,30 SAY "Continue (Y/N)?" 

3 12,47 GET ans 

set color to Sccolor 

read 

if upper(ans) <> ’Y 1 
return 
endif 

do while .T. 
clear 

set scoreboard on 

3 7,22 SAY "PREPARING TO MARK ITEMS RECEIVED" 
ansi = 1 

16,32 SAY "Select:" 

16,41 GET ansi picture "#" range 1,3 



1 . 

2 . 

3. 



17.22 SAY 

18.22 SAY "[ 

19.22 SAY "[ 

20.22 SAY "[ 

21.22 SAY " 

read 

set scoreboard off 
do case 

case ansi = 1 

kind = "Requisition f " 

select D 

use 

use &item index &reqno_i 
field = "D->reqno" 
case ansi = 2 

kind = "Purchase Order #" 

select D 

use 

use Sitem index &pono_ i 
field = "D->pono" 
case ansi = 3 
return 
endcase 
ans2 = 1 Y' 
key = 1 1 

c 1 ear 

3 9,15 SAY "Enter" 

3 9,22 SAY kind 



Show by requisition f ] " 
Show by purchase order # ]" 
Return to main menu ]" 
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3 9,38 SAY 

3 9 , 41 GET key picture "3########" 

3 11,15 SAY "Note - Blank ends process" 
read 

if key = 1 1 

return to master 
endif 

set color to Smscolor 
3 1 A , 28 SAY "Correct (Y/N)?" 

3 14,44 GET ans2 
set color to Sccolor 
read 

if upper(ans2) = 'Y 1 
find &key 

if eofC) .or. bof() 

3 14,0 clear 

3 14,24 SAY kind 

3 14,40 SAY " not on file." 

3 16,14 SAY "Please double check the " 

3 16,38 SAY kind 

3 16,54 SAY " and try again." 

set color to &mscolor 
wait &wmsg 

set color to Sccolor 
clear 
else 

counter = 0 

do while Sfield = key .and. .not. eof ( ) 
if .not. rcvd 

counter = counter + 1 

ans3 = 1 1 

clear 

3 3,18 SAY "The following item shown as not received" 
3 7,11 SAY "Requisition 

3 7,27 SAY reqno 

3 9,11 SAY "Purchase Ord 

3 9,28 SAY pono 

3 11,11 SAY "Item:" 

3 11,18 SAY descrip 
3 13,11 SAY "Quantity:" 

3 13,22 SAY quant 
3 13,39 SAY "Unit Price: $" 

3 13,53 SAY uprice 
set color to Smscolor 

3 19,21 SAY "Has this item been received (Y/N)?" 

3 19,56 GET ans3 
set color to Sccolor 
read 

if upper(ans3) = 'Y 1 
replace rcvd with .T. 
endif 
endi f 
skip 
enddo 

if counter = 0 
clear 

if ansi = 1 

3 12,18 SAY "All items for requisition #" 

3 12,47 SAY Skey 
else 

3 12,16 SAY "All items for purchase order f" 

3 12,47 SAY Skey 
endif 

3 14,18 SAY "have been previously marked as received." 
set color to 8mscolor 
wait Swmsg 

set color to Sccolor 
endif 
endif 
endif 
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clear 

enddo 




XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

^ Module Name: MAIN . PRG X 

x x 

X Author: Tom Trotter x 

x x 

X Purpose: Since this module is the first to be invoked, it is refered X 

X to in dBASE III as the master module. It sets up the x 

X initialization of key memory variables and presents the X 

x main menu for program selection. x 

X X 

X This module is called by: N / A X 

X X 

X This module calls: WELCOME. PRG x 

x CONFIG. PRG x 

x GET_DATE . PRG x 

x NEW_0RDR . PRG x 

x IN_P0N0 . PRG x 

x IN_RCVD . PRG x 

x SHW_NRI.PRG x 

x DISP_REQ . PRG x 

x CHG_PRIC.PRG x 

x NEW_SUPL . PRG x 

x NEW_ACNT . PRG x 

x QUIT. PRG x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

set help off 
set talk off 
set delete on 
set safety off 
set console on 
set escape off 
do welcome 
do config 
do get_date 
do while .T. 
clear all 

public today, julian, wmsg 

wmsg = f ” ; 

Press any key to continue...” 1 
public sup,sname_s,supno_s, template, tempord 

public item, reqno_i , pono_i , req, reqno_r,accno_r,accnt,aname_a , accno_a 

restore from date.var additive 

public c_dept, c_bldg, c_room, c_phone 

restore from config. var additive 

sup = c_sdrv + "sup" 

sname_s = c_sdrv + ”sname_s” 

supno_s = c_sdrv + "supno_s" 

template = c_adrv + "template” 

tempord = c_adrv + "tempo rd . dbf" 

item = c_adrv + "item” 

reqno_i = c_adrv + ”reqno_i” 

pono_i = c_adrv + ”pono_i” 

req = c_adrv + "req” 

reqno_r = c_adrv + ”reqno_r” 

accno.r = c_adrv + "accno_r" 

accnt = c_adrv + "accnt" 

aname_a = c_adrv + "aname_a" 

accno_a = c_adrv + "accno_a” 

fy_id = c_adrv + "fy.id” 

public fy 

restore from &fy_id additive 
public ccolor , mscolor , errcolor 
if c_clrmon 

store "GR+/B,W+/ ,B+" to ccolor 
store "GR+/ ,GR+/ " to mscolor 
store ”R+" to errcolor 
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else 

store "W+/ " to ccolor 
store M W+/ ” to mscolor 
store ”N+/ n to errcolor 
endi f 

set color to Sccolor 
choice = 0 
set scoreboard on 
clear 



3 

3 

3 

3 

3 

3 



3.10 

4.10 

5.10 

6.10 

7.10 

8.10 



SAY "== 
SAY "= 
SAY " = 
SAY " = 
SAY "= = 
SAY "= 



SUPPLY REQUISITION DATABASE 



3 


9,10 : 


SAY 11 


i = 


0 . 


Exit 


- n 


3 


10,10 


SAY 


n = 


1. 


Place an order 


- n 


3 


11,10 


SAY 


ii = 


2. 


Update files with purchase order # 


= n 


3 


12,10 


SAY 


*i = 


3. 


Mark items received 


= n 


3 


13,10 


SAY 


M = 


4. 


List items not yet received 


3 >1 


3 


14,10 


SAY 


n = 


5. 


Display a specific requisition 


- ti 


3 


15,10 


SAY 


n- 


6. 


Change an item price 


3 M 


3 


16,10 


SAY 


ii = 


7 . 


Enter a new supplier 


3 n 


3 


17,10 


SAY 


n = 


8. 


Create a new account 


3 >1 


3 

3 


18,10 

19,10 


SAY 

SAY 


ii - 

il ::: 




=====Your choice > <===================== 


3 n 

__n 



319,41 GET choice picture •#* range 0,8 
read 

set scoreboard off 
do case 



case 


choice = 


0 


do 


quit 




case 


choice = 


1 


do 


new_ordr 




case 


choice = 


2 


do 


in_pono 




case 


choice - 


3 


do 


in_rcvd 




case 


choice = 


4 


do 


shw_nri 




case 


choice = 


5 


do 


disp_req 




case 


choice = 


6 


do 


chg_pric 




case 


choice - 


7 


do 


new_supl 




case 


choice = 


8 


do 


n ew_a c n t 





endcase 

enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



x Module Name: NEW_ACNT . PRG * 
x x 
X Author: Tom Trotter X 

X Purpose: This module allows the user to set up a new account by X 
X appending a blank record to the ACCNT . dbf and filling X 
X in all fields. X 
X X 
x This module is called by: MAIN. PRG X 
^ SEL_ACNT X 

X X 
X This module calls: N / A X 
X X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ans = 1 1 

do while ans <> 'Y 1 

3 3?28 SAY "CREATE A NEW ACCOUNT" 
a A, 28 SAY " " 

a 6,14 SAY "In order to enter a new account you must have" 

3 7,14 SAY "the following information available at this time:" 
a 9,17 SAY "Account Name" 

3 10,17 SAY "Account # (assigned by NPS Comptrol 1 er ) " 

3 11,17 SAY "Serial # range assigned to account" 

3 12,17 SAY "Is it a research account?" 

3 14,14 SAY "WARNING - If you do not understand any of the" 

3 15,24 SAY "above items, seek assistance and do" 

a 16,24 SAY "not continue further at this time." 

a 19,27 SAY "Continue (Y/N)?" 

a 19,44 GET ans picture "3!" 

read 

if upper(ans) = f N f 
return 
endi f 
enddo 
select A 



use 

use Saccnt index Saname_a,&accno_a 
append blank 
do while .T. 
ans = * 1 

clear 
3 1,25 
2,25 

5.22 
5,37 

7.22 



SAY 

SAY 

SAY 

GET 

SAY 



"INPUT NEW ACCOUNT" 



"Account Name:" 
aname picture "3!" 
"Account Number:" 
7,39 GET accno picture "3!" 

9.22 SAY "Code:" 

9,29 GET code picture "3!" 

11.22 SAY "Research Account 
research picture 



(T/F) :" 

L" 

"Requisition Serial # Range - From:" 
loserno picture "9999" 

"To : " 

hiserno picture "9999" 

"Last Serial $ Used:" 
lastused picture "####" 

"(leave blank if account never used yet)" 

= i i 



11,47 GET 

13.22 SAY 

13.59 GET 
14,52 SAY 

14.59 GET 

15.22 SAY 
15,43 GET 

16.22 SAY 
read 

if lastused 

replace lastused with loserno 
endif 



a 19,27 SAY "Correct (Y/N)?" 

a 19,43 GET ans 

read 
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if upperCans) = 'Y f 
return 
endi f 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X Module Name: NEW_ORDR.PRG X 

X X 

x Author: Tom Trotter X 

x x 

X Purpose: This module serves as the menu driver for the activities X 

X required in the generation of new orders. It assigns a x 

X value to the public memory variable TYPEORDR based upon x 

X the user’s selection. X 

X X 

x This module is called by: MAIN.PRG x 

X x 

X This module calls: CALC_REQ.PRG x 

X F0RM_0RD . PRG X 

x 0PN_0RD . PRG x 

X PUB_0RD . PRG x 

x RSS_ORD.PRG x 

x SEL_ACNT . PRG x 

X STK_0RD . PRG X 

x XP0R_0RD . PRG x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

do while .T. 
order = 7 
clear 

set scoreboard on 
3 3,29 SAY "PLACE AN ORDER" 

3 5,10 SAY "The purpose of this program is to generate the appropri" 

3 5,65 SAY "ate" 

3 6,10 SAY "supply forms (DD 1348-6 8/or SF 36) to place an order." 

3 9,24 SAY "Select the type of order” 

3 11,10 SAY f, l . Open Purchase" 

3 12,10 SAY ”2. Standard stock items from NPS RSS, NSC Oakland, or GSA” 

3 13,10 SAY ”3. Standard forms from NSC Oakland” 

3 14,10 SAY ”4. Publications from NAVPUBFORMCEN Phil” 

3 15,10 SAY ”5. $$ Reimbursement to NPS Ready Supply Store" 

3 16,10 SAY ”6. Transportati on of material (e.g. Federal Express)” 

3 17,10 SAY ”7. Return to main menu” 

3 20,26 SAY "Your order:” 

3 20,41 GET order picture "t” range 1,7 
read 

set scoreboard off 
public typeordr , service 
service = substrC fy , 2, 1 ) 
typeordr = f f 

if order <> 6 .and. order <> 7 
do sel_acnt 
do calc_req 
endif 
do case 

case order = 1 

typeordr = ’OPEN 1 
do opn_ordr 
case order = 2 

typeordr = ’STOCK’ 
do stk_ordr 
case order = 3 

typeordr = ’FORM’ 
do form_ord 
case order = 4 
typeordr = ’PUB’ 
do pub_ord 
case order = 5 

typeordr = ’RSS$’ 
do rss_ord 
case order = 6 

typeordr = ’XPORT’ 
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do sel_acnt 
do calc_req 
do xpor_ord 
case order = 7 

return to master 
endcase 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 
X Module Name: NEW_SUPL.PRG * 
X X 
X Author: Tom Trotter X 
X X 
X Purpose: This module allows the user to enter a new supplier by X 
X appending a blank record to the SUP.dbf and filling in X 
X all fields. X 
X X 
X This module is called by: MAIN.PRG * 
X SEL_SUPL.PRG * 
X X 
X This module calls: N / A X 
X X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



ans - 1 1 

do while ans <> ’Y 1 
clear 

3 A, 26 SAY "INPUT A NEW SUPPLIER" 

3 5,26 SAY " " 

3 7,12 SAY "In order to input a new supplier, you must have the" 

3 8,12 SAY "following information available at this time?" 

3 10,29 SAY "Supplier Name" 

3 11,29 SAY "Address" 

3 12,29 SAY "Phone #" 

3 14,12 SAY "The phone number is mandatory. Do not proceed unless" 

3 15,12 SAY "you are ready to enter the above information." 

3 18,25 SAY "Continue (Y/N) ?" 

3 18,43 GET ans picture "3!" 
read 

if ans = 'N 1 
return 
endif 
enddo 
select B 



use 

use &sup index &supno_s, &sname_s 
append blank 
do while .T. 
ans = 1 1 

clear 

3 3,27 SAY "INPUT NEW SUPPLIER" 

3 4,27 SAY " " 

3 6,15 SAY "Name:" 

3 6,23 GET sname 

3 8,15 SAY "Address:" 

3 8,25 GET addr 

3 10,15 SAY "City:" 

3 10,22 GET city 
3 10,38 SAY "State:" 

3 10,46 GET state picture "3!" 

3 10,52 SAY "Zip:" 

3 10,58 GET zip 
3 12,15 SAY "Phone: ( )" 

3 12,23 GET areacode picture "3###" 

3 12,28 GET fone picture "3###-####" 

3 14,15 SAY "Note - Phone t is mandatory" 
read 

3 16,26 SAY "Is this correct?" 

3 16,44 GET ans picture "3!" 
read 

tempid = subst r ( f one, 4 ) 
if valCtempid) > 9970 
tempid = ’0000’ 
endif 

new = recnoC ) 
if ans = *Y f 



) 
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tempid = str( val C tempid) + 1,4) 
go top 

find Stempid 
if eof () .or. bof () 
go new 

replace supno with tempid 
3 14,0 clear 

3 16,24 SAY "Assigned Supplier 
3 16,46 SAY supno 
wait Swmsg 
return 
endif 
endif 
enddo 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X x 

* Module Name; OPN_QRDR.PRG X 

x x 

* Author: Tom Trotter X 

X X 

X Purpose: This module coordinates the activities necessary to make an X 

X open purchase. It invokes several subordinate modules to X 

X gather various user inputs. If only one item is being ordered X 

X and the description of that item will fit in the space X 

X allowed on a DD-1348 ( < 23 characters) ; then a DD-1348 will X 

X be generated. If more than one item is being ordered, or if X 

X the item’s description is lengthy, a SF-36 will be prepared X 

x in addition to a DD-1348. X 

X X 

X This module is called by: MAIN.PRG X 

X X 

X This module calls: SEL_SUPL.PRG * 

x GET_RDD . PRG * 

x GET_PRI . PRG x 

x GET_CAT.PRG * 

* BUY2_ITM.PRG X 

X PRTSF36 . PRG X 

^ PRT1348o.PRG * 

x SUP_MEMQ.PRG * 

* FILE_REQ . PRG * 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

a ns = ’ ’ 

clear 

3 3,27 SAY "OPEN PURCHASE REQUISITION" 

3 97 SAY " " 



3 6,12 SAY "This program prepares the necessary documents to execute" 

3 7,12 SAY "an open purchase request. A DOD 1348 (6 part) will always" 

3 8,12 SAY "be produced, and if the item description is too long" 

3 9,12 SAY "(greater than 22 characters), or if there is more than" 

3 10,12 SAY "one item being ordered, a SF 36 will also be prepared." 

3 11,12 SAY "If the total order value exceeds $1,000., a memorandum" 

3 12,12 SAY "will be prepared listing at least 2 alternative sources," 
3 13,12 SAY "unless this procurement request is being accompanied by" 

3 14,12 SAY "a sole-source justification. A maximum of 10 separate" 

3 15,12 SAY "line items may be ordered on a single requisition." 

3 17,30 SAY "Continue (Y/N)?" 

3 17,47 GET ans 

read 

if upper(ans) <> T Y’ 
return 
endif 

do sel_supl 
do get_rdd 
do get_ pri 
do get_cat 
public counter 
counter = 1 
do buy2_itm 

public doci d, si gna 1 , f und , sf 36 

docid = ’A0E’ 

signal = ’A’ 

fund = 1 2S ’ 

select E 

use Stempord 

go bottom 

if recno() = 1 .and. len( trim( E->descrip ) ) < 23 .and. E->descrip2 = 1 ’ 

sf 36 = .F. 
else 

sf 36 = .T. 
do prtsf36 
endif 
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do prtl348o 
do file_req 
if totval > 999.99 
do sup_memo 
endif 
select E 
use 

erase Stempord 
return to master 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 
X Module Name: PRNT_SMO.PRG X 
x x 
x Author: Tom Trotter x 
X X 
X Purpose: This module prepares a supplemental memo to NPS Supply X 
X memo to accompany an open purchase requisition if the total X 
x value of all items on the requisition exceeds $1,000. The X 
X purpose of the memo is to offer 2 alternative sources for X 
x the requested material as required by Naval Supply regulations, X 
x except in the case of orders accompanied by a sole source X 
x justification. x 
X X 
X This module is called by: SUP_MEMO.PRG X 
x x 
X This module calls: N / A X 
X X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



3 1,7 SAY "From:" 

3 1,14 SAY c_dept 
3 1,18 SAY "Department" 

3 1,56 SAY today 
3 3,7 SAY "To: NPS Supply" 

3 5,7 SAY "Subj : Additional sources for requisition #" 

3 5,50 SAY reqno 

3 7,7 SAY "1. Due to the high value of subject requisition, the f" 
3 7,62 SAY "ol lowing" 

3 8,7 SAY "multiple supply sources are submitted:" 

3 12,17 SAY snamel 
3 12,45 SAY "Phone:" 

3 12,53 SAY areacodel 
3 12,57 SAY fonel 
3 13,17 SAY addrl 
3 14,17 SAY cityl 
3 14,37 SAY sta tel 
3 14,44 SAY zipl 
3 17,17 SAY sname2 
3 17,45 SAY "Phone:" 

3 17,53 SAY areacode2 
3 17,57 SAY f one2 
3 18,17 SAY addr2 
3 19,17 SAY city 2 
3 19,37 SAY state2 
3 19,44 SAY zi P 2 
3 23,17 SAY sname3 
3 23,45 SAY "Phone:" 

3 23,53 SAY areacode3 
3 23,57 SAY fone3 
3 24,17 SAY addr3 
3 25,17 SAY city3 
3 25,37 SAY state3 
3 25,44 SAY zi P 3 

3 29,7 SAY "2. Department points of contact for this request are:" 
3 31,23 SAY pocl 
3 31,48 SAY extl 
3 33,23 SAY P oc2 
3 33,48 SAY ext2 
3 34,1 SAY chr ( 12 ) 
set device to screen 
return 
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xxxxxxxxxx*xxxxxxxxxxxx*x*xxxxx*xxx*x*xxxxxxx*xx*xxxx*xxxxxxx*xxx*xxxxxx*xxxx* 



X X 
x Module Name: PRTSF36 . PRG * 
x x 

* Author: Tom Trotter * 
x x 
^ Purpose: This module contains loop which will read one item at a time X 
X from the TEMPORD . dbf and generate an SF-36. The TEMPORD . dbf * 
X is used as the information source because it contains the X 

* fields of DESCRIP2 and DESCRIP3 which are not permanently * 

* filed in the ITEM. dbf. This allows a fuller description to * 

* be used in the generation of the documents, yet provides for * 

* a more economical filing structure for long term files. Once X 
X the user states that an acceptable SF-36 has been generated, X 
x the TEMPORD. dbf is erased. This module will produce an SF-36 X 
X containing from 1 to 12 line items. X 
X X 
X This module is called by: OPN_QRDR.PRG X 
X X 
x This module calls: WARN_PRT.PRG X 
x x 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



do warn_prt 
ans = 1 1 

do while ans <> 'N' 
clear 

3 10,26 SAY "LOAD SF-36 INTO PRINTER" 

3 12,37 SAY "&" 

3 14,25 SAY "PRESS ANY KEY TO CONTINUE" 
set device to print 
3 1,0 SAY ' * 
wait 11 

reql = subst r( reqno , 1 , 4 ) 

req2 = subst r ( reqno , 5 , 4 ) 

ref = "N62271/" + reql + '/' + req2 

a) 1,51 SAY ref 

3 1,72 SAY "1 1" 

who = trim( B->sname) 

where = trim( B->addr ) + ', 1 + t rim( B->ci ty ) + 1 , 1 + trim( B~>state ) ; 

+ • 1 + ( B->zip) 
who = who + 1 , 1 + where 

3 3,1 SAY who 
select E 
go top 
marker = 7 

do while .not. eof ( ) 

3 marker,3 SAY E->itemno 

3 marker,8 SAY E->descrip 

3 marker,49 SAY E->quant picture "#####" 

3 marker,57 SAY E->unit 

3 marker,61 SAY E->uprice picture "#####.##" 
amount = E->quant X E->uprice 
3 marker,71 SAY amount picture "#####.##" 
if descrip2 <> 1 f 
marker = marker + 1 
3 marker,8 SAY E->descrip2 
endi f 

if descrip3 <> 1 1 

marker = marker + 1 
3 marker,8 SAY E->descrip3 
endif 

marker = marker + 2 
skip 
enddo 

3 ma rker , 7 0 SAY " " 

marker = marker + 1 
3 marker, 35 SAY "TOTAL" 

3 marker, 70 SAY 



136 



3 marker, 71 SAY totval picture "ft, iff. ft" 

3 16,1 SAY chr ( 13 ) 
set device to screen 
clear 

3 12,21 SAY "Do you want to reprint the SF-36?" 
3 12,56 GET ans picture ”3!" 
read 
enddo 
return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 

x Module Name: PRT1348a.PRG * 
x x 
x Author: Tom Trotter * 
x x 
x Purpose: This module contains a loop which will print memory variables 36 
X to the appropriate spaces on a DD-1348. It is designed to * 
X handle slight variations in format based upon the value of * 
X TYPEORDR. 36 
X X 
X This module is called by: STK_ORDR.PRG 36 
x F0RM_0RD . PRG 36 
x PUB_ORD.ORG 36 
x RSS_0RD . PRG 36 
X X 
36 This module calls: WARN_PRT . PRG 36 
x x 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



do warn_prt 
ans = ’ 1 

do while ans <> ’N’ 
clear 

a 10,31 SAY "LOAD PRINTER” 

3 12,37 SAY ”8” 

3 14,25 SAY "PRESS ANY KEY TO CONTINUE” 
set device to print 
a 1,0 SAY 1 * 
wait ’ * 

a 1,6 SAY sendt o 
a 1,36 SAY "(62271) NPS," 
dept = trim(c_dept) + 1 Dept,' 
a 1,49 SAY dept 

ccode = ’Code 1 + trimC A~>code) 

3 1,59 SAY ccode 
a 2,36 SAY "Rm" 
a 2,39 SAY c_room 
a 2,45 SAY "Bldg" 
a 2,50 SAY c_bldg 
3 2,56 SAY c_phone 
if typeordr = ’STOCK* 
a 4,1 SAY nomenl 
3 5,1 SAY nomen2 
a 5,25 SAY docid 
endi f 

a 5,30 SAY route 
if typeordr = ’RSS$’ 

3 5,38 SAY money 
else 

a 5,34 SAY ms_code 
snuml = substrCstknum, 1 , 4) 
snum2 = substrCstknum, 5, 2) 
snum3 = substr ( stknum, 7 , 3 ) 
snum4 = substr ( stknum, 1 0 , 4 ) 

snum = snuml + ’ ’ + snum2 + ’ ' + snum3 + ’ ’ + snum4 

a 5,37 SAY snum 

a 5,59 SAY unt 

a 5,63 SAY qunt picture "#####” 

endi f 

a 8,1 SAY "X 62271" 
reql = substrC reqno , 1 , 4) 
req2 = substrC reqno , 5, 4) 
req3 = reql + ’ ’ + req2 

a 8,11 SAY req3 
a 8,23 SAY demand 
a 8,25 SAY service 
a 8,27 SAY supadr 
a 8,34 SAY signal 
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if typeordr = ’FORM’ .or. typeordr = ’PUB* 

3 8,38 SAY nomenl 
endif 

3 8, 6 A SAY rmko 
3 8,66 SAY "20" 

if typeordr = ’FORM* .or. typeordr = 'PUB* 

3 9,38 SAY nomen2 
endif 

3 12,1 SAY fund 
3 12,5 SAY dist 
3 12,9 SAY "0P4" 

3 12,14 SAY priority 
if rdd_yes 

3 12,17 SAY rdd picture "##f" 
endi f 

3 15,4 SAY n AA" 
do case 

case typeordr = *RSS$ f 

3 15,49 SAY uprce picture 
case typeordr = ’PUB 1 
3 15,50 SAY "N/C" 
otherwise 

3 15,33 SAY uprce picture "#####. ##" 
totval = qunt X uprce 

3 15,49 SAY totval picture "*#,###.##" 
endcase 

3 16,1 SAY chr ( 13 ) 
set device to screen 
clear 

3 12,20 SAY "Do you want to reprint the DD-1348?" 
3 12,56 GET ans picture ”3!" 
read 
enddo 
return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 
X Module Name: PRT1348o.PRG * 

X X 
x Author: Tom Trotter * 
x x 
X Purpose: This module prints a DD-1348 for open order purchases. It is X 
X designed to generate a DD-1348 which may be accompanied by X 
X an SF-36, or one which can stand alone, depending upon the X 
x value of the logical variable SF36 . x 
X x 
x This module is called by: 0PN_0RDR.PRG x 
x x 
x This module calls: NARN_PRT . PRG x 
x x 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



do warn_prt 
a ns = 1 1 

do while ans <> 1 N 1 
clear 

3 10,31 SAY "LOAD PRINTER" 

3 12,37 SAY "&" 

3 14,25 SAY "PRESS ANY KEY TO CONTINUE" 
set device to print 
3 1,0 SAY 1 ' 
wait 1 ' 

3 1,1 SAY B->sname 
3 1,36 SAY "(62271) NPS," 
dept = trim(c_dept) + 1 Dept, 1 
3 1,49 SAY dept 

ccode = 'Code 1 + t ri m( A->code ) 

3 1,59 SAY ccode 
3 2,1 SAY where 
3 2,36 SAY "Rm" 

3 2,39 SAY c_room 
3 2,45 SAY "Bldg" 

3 2,50 SAY c_bldg 
3 2,56 SAY c_phone 
3 5,25 SAY docid 
3 5,34 SAY ms_code 
if sf 36 

3 5,38 SAY "SEE ATTACHED SF-36" 
else 

3 5,38 SAY E->descrip 
3 5,59 SAY E->unit 

3 5,63 SAY E->quant picture "#####" 
endi f 

3 8,1 SAY "X 62271" 
reql = substr ( reqno , 1 , 4 ) 
req2 = substr ( reqno , 5 , 4 ) 
req3 = reql + ' 1 + req2 

3 8,11 SAY req3 
3 8,23 SAY demand 
3 8,25 SAY service 
3 8,27 SAY supadr 
3 8,34 SAY signal 
3 8,64 SAY rmko 
3 8,66 SAY "2D" 

3 12,1 SAY fund 
3 12,5 SAY dist 
3 12,9 SAY "0P4" 

3 12,14 SAY priority 
if rdd_yes 

3 12,17 SAY rdd picture "###" 
endi f 

3 15,4 SAY "AA" 
if .not. SF36 

3 15,33 SAY uprce picture "#####.##" 
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endi f 

3 15,49 SAY totval picture , ## # . ##" 

3 16,1 SAY chr C 13) 
set device to screen 
clear 

3 12,20 SAY "Do you want to reprint the DD-1348?" 
a) 12,56 GET ans picture "3 ! " 
read 
enddo 
return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X X 

* Module Name: PRTl348x.PRG X 

x x 

* Author: Tom Trotter * 

x x 

* Purpose: This module prints a DD-1348 for t ransportati on requisi ti ons . X 

X It is formatted to include a field showing to whom the item X 

X is to be sent. X 

X X 

X This module is called by: XP0R_0RD.PRG X 

X X 

X This module calls: WARN_PRT.PRG X 

X X 
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do warn_prt 

ans = ' ' 

do while ans <> ’N' 
clear 

a 10,31 SAY "LOAD PRINTER" 
a 12,37 SAY ”8" 

3 14,25 SAY "PRESS ANY KEY TO CONTINUE" 

set device to print 

a 1,0 SAY 1 1 

wait ' ' 

select B 

use 

use &sup index &supno_s 

key = M->supno 

find 8key 

sendto = B~>sname 

a 1,6 SAY sendto 

3 1,36 SAY "(62271) NPS," 

dept = trim(c_dept) + * Dept, 1 

a 1,49 SAY dept 

ccode = 'Code ' + trimC A->code) 
a 1,59 SAY ccode 
a 2,36 SAY "Rm" 
a 2,39 SAY c_room 
a 2,45 SAY "Bldg" 
a 2,50 SAY c_bldg 
a 2,56 SAY c_phone 
3 5,25 SAY docid 
a 5,38 SAY "Ticket to:" 
a 5,59 SAY unt 
a 7,38 SAY shipto 
a 8,1 SAY "X 62271" 
reql = substrC reqno , 1 , 4 ) 
req2 = substr ( reqno , 5 , 4 ) 
req3 = reql + ' ' + req2 

a 8,11 SAY req3 
a 8,23 SAY demand 
a 8,25 SAY service 
a 8,27 SAY supadr 
a 8,34 SAY signal 
a 8,38 SAY addrl 
a 8,64 SAY rmko 
a 8,66 SAY "2D" 
a 9,38 SAY addr2 
a 10,38 SAY addr3 
a 11,38 SAY addr4 
a 12,1 SAY fund 
a 12,9 SAY "OP 4" 
a 12,14 SAY priority 
a 15,4 SAY "AA" 

a 15,50 SAY uprce picture "####.##" 
a 16,1 SAY chr ( 13) 
set device to screen 
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clear 

3 12,20 SAY "Do you want to reprint the DD-1348?" 
3 12,56 GET ans picture " <D ! " 
read 
enddo 
return 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x x 

X Module Name: PUB_ORD.PRG X 

X X 

X Author: Tom Trotter X 

X X 

X Purpose: This module coordinates the process of ordering forms x 

X from NAVPUBFORMCEN, Philadelphia, PA. X 

X X 

X This module is called by: NEW_ORDR.PRG X 

X X 

X This module calls: GET_RDD.PRG X 

X GET_CAT . PRG X 

X GET_PRI . PRG X 

X BUYl.ITM.PRG * 

x FILE_REQ . PRG x 

x FILE_ITM . PRG x 

x x 

X X XX X XX XXX XX XXXX XX XXX XX XX XX XX XX XXX XX XX XX XXX XXX XX XX XXX XX XX XX XX XXX XXX XXX XX XX XX XX 

ans = 1 1 

clear 

a 8,31 SAY "PUBLICATION ORDER" 

3 Q *1 qAY " n 



3 11,13 SAY "This program prepares the documents required to order" 
a 12,13 SAY "publications from NAVPUBFORMCEN, Philadelphia. " 

3 16,30 SAY "Continue CY/N)?" 

a 16 , 47 GET ans 

read 

if upper(ans) <> f Y f 
return 
endif 

public sendto , supno , route 

sendto = '(00288) NAVPUBFORMCEN PHILA' 

supno = '2222' 

route = ' NFZ f 

do get_rdd 

do get_pri 

do get_cat 

do buyl_itm 

public docid, signal , fund 
docid = 'AOD' 
signal = f D f 
if uprce = 0 
fund = f Y6 ' 
else 

fund = 1 2S ' 
endi f 

do prtl348a 
do file_req 
do file_itm 
return to master 
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X X 
X Module Name: QUIT.PRG X 
X X 
X Author: Norm Lyons 10/85 X 
X Modified by: Tom Trotter 12/85 (converted to dBASE III) X 
X X 
X Purpose : This program terminates processing and returns X 
* control to the operating system. At the end of X 
X each appropriate menu, an option to to quit is x 
X displayed. If the user enters "Q" to quit, the X 
X program ends and control is returned to the X 
X operating system. X 
x x 
X This module is called by: MAIN.PRG X 
x x 
X This module calls: N / A X 
X X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



3 5,28 SAY n End of Dialog" 

3 7,10 SAY "If you are using floppy disks, replace them in their" 

3 9,10 SAY "protective jackets. Do not touch the surface of" 

3 11,10 SAY "the disk (the little oval opening at the bottom of the" 
3 13,10 SAY "disk) ." 
set color to Smscolor 

3 22,9 SAY "Press any key to return control to the operating system" 
set color to Sccolor 
wait 1 1 
quit 
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X X 

X Module Name: REQ_HDR . PRG X 

x x 

x Author: Tom Trotter X 

x x 

X Purpose: This module is used by the various modules which display x 

x requisitions to put a common header on the screen. It X 

x has been put into a separate module in order to avoid x 

X code duplication. X 

x x 

x This module is called by: DIS1_REQ.PRG x 

x DIS2_REQ.PRG x 

X DIS3_REQ . PRG x 

x x 

x This module calls: N / A X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

clear 

3 1,5 SAY "Account Name:" 

3 1,19 SAY A->aname 
3 1,51 SAY "Requisition 
3 1,66 SAY C->reqno 
3 2,5 SAY "Account #:" 

3 2,16 SAY C->accno 
3 2,51 SAY "Priority:" 

3 2,61 SAY C->pri_code 
3 3,21 SAY "To:" 

3 3,25 SAY B->sname 
3 3,51 SAY "Date:" 

3 3,57 SAY C->rdate 
3 4,25 SAY B->addr 

where = trim( B->ci ty ) + 1 , •+ B->state + 1 1 + B->zip 

3 5,25 SAY where 

3 7,2 SAY " f Item Unit Cost" 

3 7,58 SAY "Quant Rcvd P.0, t" 

3 8,1 SAY " " 

3 8,56 SAY " " 

return 
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X X 

* Module Name: RSS_ORD.PRG X 

x x 

* Author: Tom Trotter 36 

X X 

X Purpose: This module prepares a DD-1348 for "Money Value Only" as a 36 

36 method of payment in response to regular billings from the X 

36 NPS Ready Supply Store CRSS). 36 

X x 

X This module is called by: NEW_ORDR.PRG 36 

X x 

X This module calls: GET_CAT . PRG 36 

36 FILE_REQ . PRG 36 

X PRT1348a . PRG 36 

X X 
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ans = * 1 

3 8,31 SAY "$$ REIMBURSEMENT TO RSS" 

3 9,31 SAY " " 

3 11,13 SAY 'This program prepares a DD-1348 for "money value only"' 
3 12,13 SAY "as reimbursement to the NPS RSS." 

3 16,30 SAY "Continue (Y/N)?" 

3 16 , 47 GET ans 
read 

if upper(ans) <> *Y' 
return 
endif 

public dist,uprce 
dist = ' * 

uprce = 0.00 
ans = ' ' 

clear 

do while ans <> 'Y* 

3 6,32 SAY "RSS $$ REIMBURSEMENT" 

3 7,32 SAY " " 

3 10,33 SAY "$$ Amount: $" 

3 10, 46 GET uprce picture "####.##" 

3 13,29 SAY "COG Symbol on billing:" 

3 13,53 GET dist picture "3!" 
read 

3 16,32 SAY "Correct (Y/N)?" 

3 16 , 48 GET ans picture "3!" 
read 
enddo 

public send to , supno , route, money, priority , rdd_yes , pri_code 
rdd_yes = .F. 

sendto = *203J READY SUPPLY STORES' 

supno = * 0000 * 

route = * Z9S ' 

pri ori ty = *15' 

pri_code - 'C' 

do get_cat 

money = 'MONEY VALUE ONLY* 

public signal, fund 

signal = 'D' 

fund = ' 2S ' 

do prtl348a 

select D 

use 

use &item index &reqno_i , &pono_i 
append blank 

replace descrip with M->money 
replace quant with 1 
replace rcvd with .T. 
use 

do file_req 
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return to master 














i 



148 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 



Module Name: SEL_ACNT . PRG 

Author: Tom Trotter 
Purpose : 



This module allows the user to access the ACCNT.dbf, 
scrolling forward and backward until a specific account 
is selected for use. If the desired account is not 
already on file, the user may opt to create it by invoking 
NEN ACNT.PRG from within this module. 



This module is called by: 



DIS2_REQ . PRG 
DIS3_REQ.PRG 
NEN_0RDR . PRG 
SHH NRI.PRG 



This module calls: 



NEN ACNT.PRG 



x 

x 

x 

x 

x 

x 

x 

x 

x 

x 

x 

x 

x 

x 

X 

X 

X 

X 
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do while .T. 
select A 
choice - A 
clear 

set scoreboard on 
3 2,28 SAY "SELECT AN ACCOUNT" 

3,22 SAY "- 



a 

a 

a 

a 

a 

a 

a 

a 



A, 22 SAY 



[ 


1 . 


By Account Name 


] 


[ 


2. 


By Account Number 


] 


[ 


3. 


Enter New Account 


] 


[ 


A. 


Return to Main Menu 


] 



7.22 SAY " 

8.22 SAY 

10,29 SAY "Your choice:" 
10, A3 GET choice picture 
read 

set scoreboard off 
aname = * 1 

public accno 
accno = 1 1 

do case 

case choice = 1 
use 



*#" range 1,A 



a 1A,27 SAY "Account Name:" 
a 1A,A2 GET aname 

a 16,27 SAY "(Blank aborts process)" 
read 

if aname = 1 ' 

return to master 
endif 

id = trim( upper(aname) ) 
use Saccnt index Saname_a,Saccno_a 
case choice = 2 
use 



3 1 A , 27 SAY "Account Number:" 
a 1A,AA GET accno 

a 16,27 SAY "(Blank aborts process)" 
read 

if accno = f 1 

return to master 
endif 

id = trim( upper (accno ) ) 
use Saccnt index Saccno_a,Saname_a 
case choice = 3 
do new^acnt 
case choice = A 
use 

return to master 
endcase 
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if choice <> 3 
find &id 

if (eof() .or. bof()) 
use 
clear 

a 5,27 SAY "ACCOUNT NOT FOUND" 

3 7,14 SAY. "If you believe this account is in the file, try" 
a 8,14 SAY "a shorter version of either the account name or" 

3 9,14 SAY "number (e.g. if you are unsure if the account” 

3 10,14 SAY "number is R1234 or R1235, look for R123 instead)." 
set color to Smscolor 
wait &wmsg 

set color to &ccolor 
endi f 
endif 

if .not. eof() 
pick = 4 
ok = .F. 

do while .not. ok 
clear 

set scoreboard on 
3 3,22 SAY "Account Name:" 

3,37 SAY aname 

5.22 SAY "Account Number:" 

5,39 SAY accno 

7.22 SAY "Code:" 

7,29 SAY code 

9.22 SAY "Research Account (T/F):" 

9,47 SAY research 

11.22 SAY "Requisition Serial # Range - From:" 

11.59 SAY loserno 
12,52 SAY "To:" 

12.59 SAY hiserno 
14,27 SAY "Select an action:" 

14,46 GET pick picture range 1,5 

15.22 SAY " 7 " 

Use this account ]" 

Scroll to previous account ]" 

Scroll to next account ]" 

Return to last menu ]" 



a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 



1. 

2 . 

3. 

4. 



16.22 SAY "C 

17.22 SAY "C 

18.22 SAY "C 

19.22 SAY "[ 

20.22 SAY "[ 

21.22 SAY " 

read 

set scoreboard off 
do case 

case pick = 1 

accno = A->accno 
return 

case pick = 2 
if .not 
skip -1 
endi f 

case pick = 3 
if .not 
skip 
endif 

case pick = 4 
ok = .T. 
case pick = 5 

return to master 
endcase 
enddo 
endi f 
enddo 



5. Return to main menu 



]” 



bof( ) 



eof ( ) 
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X X 
x Module Name: SEL_SUPL.PRG X 
x x 
X Author: Tom Trotter X 
X X 
x Purpose: This module allows the user to access the SUPT.dbf, x 
X scrolling forward and backward until a specific supplier X 
x is selected for use. If the desired supplier is not X 
X already on file, the user may opt to enter it by invoking X 
X NEW_SUPL.PRG from within this module. X 
x x 
x This module is called by: NEW_ORDR.PRG x 
x SUP_MEM0 . PRG x 

X X 
x This module calls: NEW_SUPL.PR G x 
x x 
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do while .T. 
select B 
choice = 4 
clear 

set scoreboard on 



3 

9 

9 

9 

9 

9 

9 

9 

9 



2,28 SAY "SELECT A SUPPLIER" 

3.22 SAY 

4.22 SAY 



[ 


1 . 


By Supplier Name 


]" 


[ 


2. 


By Supplier Number 


]•• 


[ 


3. 


Enter New Supplier 


]" 


[ 


4. 


Return to Main Menu 


]" 



6.22 SAY 

7.22 SAY 
8 22 SAY 
11,29 SAY "Your choice:" 

11,43 GET choice picture "f" range 1,4 



read 



set scoreboard off 
public supno 
sname = 1 
supno = 1 1 

do case 

case choice = 1 
use 



9 14,27 SAY "Supplier Name:" 

9 14,42 GET sname 

9 16,27 SAY "(Blank aborts process)" 
read 

if sname = • 1 

return to master 
endif 

id = trim( upper(sname) ) 
use 8sup index &sname_s 
case choice = 2 
use 

9 14,27 SAY "Supplier Number:" 

9 14,44 GET supno 

9 16,27 SAY "(Blank aborts process)" 
read 

if supno = * 1 

return to master 
endif 

id = trim( upper ( supno ) ) 
use &sup index &supno_s 
case choice = 3 
do new_supl 
case choice = 4 
return to master 
endcase 

if choice <> 3 
find Sid 

if (eof() .or. bof()) 
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use 

clear 

3 5,27 SAY "SUPPLIER NOT FOUND" 

3 7,14 SAY "If you believe this supplier is in the file, try" 
3 8,14 SAY "a shorter version of either the supplier name or" 
3 9,14 SAY "number (e.g. if you are unsure if the supplier" 

3 10,14 SAY "name is Grey Electric or Gray Electic, try" 

3 11,14 SAY "looking for 'Gr 1 instead)." 
set color to Smscolor 
wait &wmsg 

set color to Sccolor 
endif 
endi f 

if . not . eof ( ) 
pick = 4 
ok = .F. 

do while .not. ok 
clear 

set scoreboard on 
3 2,29 SAY "SELECTED SUPPLIER" 

3 5,25 SAY sname 
3 6,25 SAY addr 
3 7,25 SAY city 
3 7,41 SAY state 
3 7,48 SAY zip 
3 9,25 SAY fone 
3 9,48 SAY "Supplier 
3 9,61 SAY supno 
3 14,27 SAY "Select an action:" 

3 14,46 GET pick picture "#" range 1,5 
3 15,22 SAY " " 



3 


16,22 


SAY 


"t 


1 . 


Use this ; 


supplier 


]" 


3 


17,22 


SAY 


■c 


2. 


Scroll to 


previous supplier 


]" 


3 


18,22 


SAY 


"C 


3. 


Scroll to 


next supplier 


]" 


3 


19,22 


SAY 


"t 


4. 


Return to 


last menu 


]" 


3 


20,22 


SAY 


"[ 


5. 


Return to 


main menu 


]•• 



3 21,22 SAY " 

read 

set scoreboard off 
do case 

case pick = 1 

supno = B->supno 
return 

case pick = 2 
if . not . bof ( ) 
skip -1 
endif 

case pick = 3 
if . not . eof ( ) 
skip 
endif 

case pick = 4 
ok = .T. 
case pick = 5 

return to master 
endcase 
enddo 
endi f 
enddo 
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X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 



Module Name: SHW_NRI.PRG 

Author: Tom Trotter 

Purpose: This module displays items which are on file in the ITEMS. dbf 



. F . ) . The user may 
He has the option of 



shown as not yet received (RCVD field 
direct output to the screen or printer, 
listing all items marked as not received/ or he may limit the 
listing to items from a specific account. This module may be 
easily expanded to accomodate screens based upon date of 
order . 



This module is called by 
This module calls: 



MAIN . PRG 



WARN_PRT . PRG 
SEL ACNT.PRG 



x 

x 

x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 
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ans = ’ ’ 

clear 

3 7/28 SAY "LIST ITEMS NOT RECEIVED" 

8/28 SAY " " 

10/13 SAY "This program generates a listing of items ordered but” 
11/13 SAY "not yet received. The list may be sent to the screen" 
12/13 SAY "or printer at the user’s option. The search for items” 
13/13 SAY "not received may also be limited within parameters” 
14/13 SAY "provided by the user." 

17,29 SAY "Continue (Y/N)?" 



a 
a 
a 
a 
a 
a 
a 

a 17,46 GET ans 
read 

if upper(ans) <> ’Y’ 
return 
endif 
pick = 3 
clear 

set scoreboard on 



a 

a 

a 



5,25 SAY "Select Search Type:” 

5,46 GET pick picture range 1,3 

6,12 SAY " 



a 


7,12 


SAY 


"C 


1. 


No limits 


(show all not received items) 




a 


8,12 


SAY 


”[ 


2. 


Limit list 


to specific account number 




a 

a 


9.12 

10.12 


SAY 

SAY 


"C 

IV 


3. 


Return to 


main menu 





read 

if pick = 3 
return 
endi f 
outpt = 1 

3 13,29 SAY "Select Display;" 

3 13,46 GET outpt picture range 1,2 

3 14,28 SAY ” ” 

a 15,28 SAY ”C 1. Screen 3” 

3 16,28 SAY "C 2. Printer 3" 

a 17,28 SAY ” " 

read 

set scoreboard off 
counter = 0 
marker = 0 
value = 0.00 
totval = 0.00 
totcnt = 0 
do case 

case pick = 1 
if outpt = 2 
prtout = .T. 
do warn_prt 
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clea r 

3 10,31 SAY "LOAD PRINTER" 

3 12,37 SAY 

3 14,25 SAY "PRESS ANY KEY TO CONTINUE" 
set device to print 
3 1,0 SAY 1 1 
wait 11 
else 

prtout = .F. 
endif 
clear 

3 2,35 SAY trimC c_dept ) + 1 Dept 1 
3 3,21 SAY "ITEMS NOT RECEIVED AS OF" 

3 3,47 SAY today 
3 4,1 SAY " # Item 

3 4,57 SAY " P.0. # Quantity" 

3 5,1 SAY " 

3 5,56 SAY " " 

select D 

use &item index &reqno_i 
go top 

do while .not. eof ( ) 
if .not. rcvd 

counter = counter + 1 

marker = marker + 1 

value = D->quant * D->uprice 

totval = totval + value 

totcnt = totcnt + D->quant 

3 marker+5,1 SAY counter picture "###" 

3 marker+5,6 SAY D->descrip 
3 marker+5,45 SAY D->reqno 
3 marker+5,58 SAY D->pono 

3 marker+5,69 SAY D->quant picture "#####" 
if marker > 14 .and. .not. prtout 
marker - 1 
wait &wmsg 
3 6,0 clear 
endif 
endif 
skip 
enddo 

if counter = 0 



3 10,21 SAY "ALL ITEMS ARE MARKED AS RECEIVED" 
else 

3 marker+8,15 SAY "Total items:" 

3 marker+8,28 SAY totcnt picture "#####" 

3 marker+8,45 SAY "Total value: $" 

3 ma rker+8 , 59 SAY totval picture "ft,###,###.##" 
endi f 
if prtout 

3 marker+8,70 SAY chr(12) 
set device to screen 
endif 

case pick = 2 
do sel_acnt 
key - A->accno 
if outpt = 2 
prtout = .T. 
do warn_prt 
clear 

3 10,31 SAY "LOAD PRINTER" 

3 12 37 SAY 

3 14*25 SAY "PRESS ANY KEY TO CONTINUE" 
set device to print 
3 1,0 SAY 1 ' 
wait " 
else 

prtout = .F. 
endif 
c lea r 



Req f " 



Tt 
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3 1,28 SAY "For Account f:" 

3 1,43 SAY key 

3 2,21 SAY "ITEMS NOT RECEIVED AS OF" 

3 2,47 SAY today 
3 4,1 SAY " f Item 

3 4,57 SAY " P.0. f Quantity" 

3 5,1 SAY " 

3 5,56 SAY " " 

select C 

use &req index &accno_r 
find Skey 
if eof ( ) 

3 8,10 SAY "No requisitions found for account name:" 
3 8,50 SAY A->name 
else 

do while C->accno = key .and. .not. eof () 
key2 = C->reqno 
select D 

use 8item index 8reqno_i 
find 8key2 

do while D->reqno = key2 .and. .not. eof ( ) 
if .not. rcvd 

counter = counter + 1 

marker = marker + 1 

value = D->quant X D->uprice 

totval = totval + value 

totcnt = totcnt + D->quant 

3 marker+5,1 SAY counter picture "###" 

3 marker+5,6 SAY D->descrip 
3 marker+5,45 SAY D->reqno 
3 marker+5,58 SAY D->pono 

3 marker+5,69 SAY D->quant picture "#####" 
if marker > 14 .and. .not. prtout 
marker = 1 
wait &msg 
3 6,0 clear 
endi f 
endi f 
skip 
enddo 
select C 
skip 
enddo 

if counter = 0 

3 10,21 SAY "ALL ITEMS ARE MARKED AS RECEIVED" 
else 

3 marker+8,15 SAY "Total items:" 

3 marker+8,28 SAY totcnt picture "######" 

3 marker+8 , 45 SAY "Total value: $" 

3 marker+8, 59 SAY totval picture "#,###, 
endif 
endi f 
if prtout 

3 marker+8,70 SAY chr(12) 
set device to screen 
else 

wait &wmsg 
endi f 
endcase 



Req # 

»i 
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X X 

X Module Name: STKJDRDR.PRG X 
x x 
X Author: Tom Trotter X 
X x 
X Purpose: This module offers the user a menu option of ordering a x 
X standard stock item from either NPS RSS, NSC Oakland, or X 
x GSA. It subsequently invokes various modules to gather X 
X the data required for the order. X 
X X 
X This module is called by: MAIN.PRG x 
X X 
X This module calls: GET RDD.PRG x 
X GET_PRI.PRG x 
x GET_CAT.PRG x 
x BUY1_ITM . PRG X 
x PRT1 348a . PRG x 
x FILE_ITM . PRG x 
x FILE_REQ . PRG x 
x x 
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choice = 4 
clear 

set scoreboard on 

3 4,25 SAY "STANDARD STOCK REQUISITION" 

3 6,14 SAY "This program prepares a requisition for either a" 

3 7,14 SAY "GSA or DOD standard stock item. If you want to" 

3 8,14 SAY "order forms or publications, return to the previous" 



3 9,14 SAY "menu." 

3 12,21 SAY " " 

3 13,21 SAY "[ 1. NPS RSS Order ]" 

3 14,21 SAY "[ 2. NSC Oakland Order ]" 

3 15,21 SAY "C 3. GSA Order ]" 



3 16,21 SAY "C 4. Return to previous menu ]" 

3 17,21 SAY " " 

3 18,29 SAY "Select:" 

3 18,38 GET choice picture "#" range 1,4 
read 

set scoreboard off 
public supno, sendto , route 
do case 

case choice = 1 

sendto = ’203J Ready Supply Stores’ 
route = ’Z9S ’ 
supno = ’0000’ 

case choice = 1 

sendto = ’(00228) NSC Oakland, CA ’ 
route = ’N0Z’ 
supno = ’1111’ 
case choice = 2 
sendto = ’GSA’ 
route = ’GSA’ 
supno = ’2222’ 

case choice = 3 
return 
endcase 
do get_rdd 
do get_pri 
do get_cat 
do buyl_itm 

public docid, signal , fund 

docid = ’ A0A 1 

signal = ’D’ 

fund = "2S" 

do prtl348a 

do file_req 

do file itm 
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return to master 



xxxx***xxx**xx***x*******xxx***x* ******************** ****** *xxxxx*xxx*xxxx**xx 



* X 

* Module Name: SUP_MEM0 * 

* * 

* Author: Tom Trotter * 

X * 

* Purpose: This module is conditionally invoked if the total value of * 

* an order exceeds $999.99. It uses SEL_SUPL.PRG to specify * 

X suppliers to include in a supplemental memo prepared to * 

X accompany the requisition. Three suppliers and 2 dept X 

X points of contact (POC's) must be specified. After the X 

X required data is collected, it invokes PRNT_SM0 . PRG to X 

X print the actual memo. X 

* * 

X This module is called by: 0PN_0RDR.PRG X 

* * 

X This module calls: PRNT_SMO.PRG X 

x SEL_SUPL.PRG ^ 

* * 



****************************************************************************** 



3 

a 

a) 

a 

9 



3 

a) 

3 

a 



clear 

3 4,24 SAY "ADDITIONAL SUPPLY SOURCES MEMO" 

5,24 SAY " " 

7.12 SAY "Since the total value of this order exceeds $1,000.00,” 

8.12 SAY "a memo, citing 2 additional supply sources, must" 

9.12 SAY "accompany the requisition. Two points of contact" 

10.12 SAY "knowledgeable about the request requirements should also" 

11.12 SAY "shown on the memo." 

14,26 SAY "Press any key to continue..." 

wait 11 
clear 
select B 

3.11 SAY "This requisition shown the following company as the" 

4.11 SAY "primary supplier." 

7.20 SAY sname 
7,47 SAY areacode 
7,57 SAY fone 

8.20 SAY addr 

9.20 SAY city 
9,45 SAY state 
9,52 SAY zip 

public snamel ,areacodel , fonel ,addrl , ci tyl ,statel , zipl 

snamel = B->sname 

areacodel = B->areacode 

fonel - B->fone 

addrl = B->addr 

cityl = B->city 

statel = B->state 

zipl = B->zip 

3 13,11 SAY "You will now be requested to identify 2 additional" 

3 14,11 SAY "suppliers." 

3 16,21 SAY "Press any key to continue..." 
wait ' T 
do sel_supl 

public sname2, areacode2, f one2,addr2, city2,state2, zip2 

sname2 = B->sname 

areacode2 = B->areacode 

fone2 - B->fone 

addr2 = B->addr 

city2 = B->city 

state2 = B->state 

zip2 = B->zip 

clear 

3 12,19 SAY "Time to select one more supplier." 

3 16,21 SAY "Press any key to continue..." 
wait 1 ' 
do sel_supl 

public sname3,areacode3, f one3,addr3, ci ty3 , sta te3 , zip3 
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sname3 = B->sname 

areacode3 = B->areacode 

fone3 = B->fone 

addr3 = B->addr 

city3 = B->city 

sta te3 = B->state 

zip3 = B->zip 

clear 

ans = 1 1 

public pocl , ext 1 , poc2 , ext 2 
pocl = 1 1 

poc2 - 1 1 

extl = 1 1 

ext2 = 1 1 

do while upper(ans) <> , Y f 

a 5,28 SAY "ENTER POINTS OF CONTACT" 

3 6,28 SAY " " 

3 9,18 SAY "Name:" 

3 9,25 GET pocl 
3 9,48 SAY "Ext:" 

3 9,54 GET extl 
3 11,18 SAY "Name:" 
a 11,25 GET P oc2 
3 11, 48 SAY "Ext:" 

3 11, 54 GET ext2 
3 1 A, 30 SAY "Correct (Y/N)?" 

3 14,46 GET ans 
read 
enddo 

do warn_prt 
clear 

a 10,31 SAY "LOAD PRINTER" 

3 12 37 SAY "8" 

3 14^25 SAY "PRESS ANY KEY TO CONTINUE" 

set device to print 

a 1,1 SAY ! ’ 

wait 1 f 

do prnt^smo 

return 
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********* x ***** *x* xx ******* ******** *********** *********** *xxxxx*x*x*xx* ******* 

X X 

X Module Name: WARNING. PRG * 

x X 

* Author: Tom Trotter * 

x x 

x Purpose: This module is used by BUY2_ITM.PRG to display a screen * 

* warning that no item was entered and the order process * 

X is about to be terminated. X 

X X 

x This module is called by: BUY2_ITM.PRG * 

x x 

X This module calls: N / A x 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans = 1 f 
do while .T. 
clear 

3 6,31 SAY "WARNING !!" 

3 7.^1 ^ A Y "- " 



3 9,1 A SAY "Since no item was entered it is assumed that" 

3 10,19 SAY "you desire to abort the entire order process!" 
3 12,22 SAY "Do you want to abort (Y/N)?" 

3 12,51 GET ans 
read 

if upper(ans) = f Y f 
return to master 
else 

goahead = . F . 
return 
endi f 
enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



X X 

X Module Name: WARN_PRT . PRG x 
x x 
X Author: Tom Trotter X 
X X 
X Purpose: This module displays a warning before any output is directed X 
X to the printer. The user is advised to prepare the printer X 
X or face the consequences. x 
X X 
x This module is called by: DIS1_REQ.PRG X 
x DIS2_REQ . PRG x 
x DIS3_REQ . PRG x 
X PRT1348a . PRG X 
x PRT1348o.PRG x 
x PRT1348x.PRG x 
X PRTSF36 . PRG x 
x SHW_NRI.PRG X 
X SUP_MEM0 . PRG x 
x x 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



do while .T. 
ans = f f 
clear 

3 5,30 SAY "PREPARE PRINTER" 

3 6,30 SAY " " 

3 8,13 SAY "Since output will now be sent to the" 

3 9,13 SAY "printer, it should be connected and have the power" 

3 10,13 SAY "turned on now." 

3 12,13 SAY "WARNING - Failure to prepare the printer may cause" 
3 13,23 SAY "the computer to hang and possibly result" 

3 1 A , 23 SAY "in loss of data."* 

3 17,29 SAY "Continue (Y/N)?" 

3 17,46 GET ans 
read 

if upper(ans) = f N* 
return to master 
endif 

if upper(ans) = f Y* 
return 
else 

return 

endif 

enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



X X 
X Module Name: WELCOME. PRG X 
x x 
* Author: Tom Trotter X 
X X 
X Purpose: This module displays the intital welcome banner and X 
X describes the current disk configuration X 
X x 
x This module is called by: MAIN.PRG x 
X X 
x This module calls: N / A x 
X X 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



clear 

3 3,16 SAY "WELCOME TO THE NPS SUPPLY REQUISITION DATABASE" 

3 6,8 SAY "This program is designed to originate requisition documents" 

3 7,8 SAY "(DD-*1348s and SF-36s), as well as maintain a database of" 

3 8,8 SAY "requisition status for a particular department. The system" 

3 9,8 SAY "is designed for use by any personnel who are familiar with" 

3 10,8 SAY "Naval Supply terminology, however, a detailed understanding" 

3 11,8 SAY "of the decision matrix used in the generation of requisition" 
3 12,8 SAY "documents is unnecessary." 

3 16,8 SAY "WARNING - If the user fails to adhere to any warnings" 

3 16,63 SAY "presented" 

3 17,19 SAY "by the program, he does so at the risk of data loss." 

3 19,19 SAY "Disks should NEVER be removed from the drives until" 

3 20,19 SAY "the program has been exited." 

? 

? 

wait * Press a key to continue...* 

restore from config.var 
clea r 

3 A, 30 SAY "LOAD DISK DRIVES" 

3 5,30 SAY " " 

3 7,27 SAY "Database Disk Location" 
if c_sdrv = c^adrv 

3 10,20 SAY "Accounts/Supplier Disk: ° * Drive" 

3 10, 46 SAY c_adrv 
else 

3 9,27 SAY "Suppliers: ° ’ Drive" 

3 9,41 SAY c_sdrv 

3 11,27 SAY "Accounts: ° * Drive" 

3 11,41 SAY c_adrv 

endi f 

3 16,9 SAY "Ensure that the disk drives are properly loaded before" 

3 16,64 SAY "proceeding!" 

? 

? 

wait * 
return 



Press a key to continue...* 
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